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Speeding Up the 4051 


by Dan Taylor 


1. 


N 


d 
The multiplication operator (*) normally requires 
6 milliseconds to multiply two numbers. But ifthe 
left operand is a “nice”: binary number then it 
requires only 2 milliseconds. 


e.g. 
PI*3 6 ms. 
3*Pl 2 ms. 
PI/2 8 ms. 
øØ.5*PI 2 ms. 


“nice” binary numbers: 

1,2, 3,4,5,6; 7,... 

5, 25, : 125, 10625,7 5, :625,,.. 
“bad” binary numbers: 

a3, .4;.:6, PLO. 


. The concatenation operator (&) is not very 


“smart.” If it is used for: 
A$=A$&B$ 


then “&” does not recognize that A$ appears on 
both sides of the equation. Therefore, A$, is 
copied into itself at 0.1 ms per character. 

d 


An alternative way to append B$ to A$ is to 
execute: 


A$=REP(B$,1+LEN(A$),@). 


This is faster than A$S=A$&B$ if LEN(A$)>110. If 
LEN(A$)=60 then REP is 20% slower. If 
LEN(A$)>1000 then REP is several times faster— 
the longer A$ gets the more significant it 
becomes. 


. Use array commands whenever possible: 


e.g. 
DIM H(20), X(100), Y (100) 
H=0 
READ @33:H 
DRAW X,Y 


Array commands are usually 2-5 times faster than 
a FOR/NEXT loop. 


. Store numbers in binary tape files. Binary is 2-4 


times faster than ASCII for numbers. 


5. Use control characters to eliminate unnecessary 


lines of code such as: 


L = PAGE 

t= HOME 

— (Control rubout) does a carriage return 

and line feed = PRINT [with nothing 
following] 


The user saves space (10 bytes overhead/line) 
and time (0.5 ms overhead/lipe). 


QA 


~ 


Q 
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Alternative to If Statements 


By Will Gallant 


Set X=1, 4 or 5 depending on value of Y. As long as only 
one logical comparison is true any number of tests may be 
performed. X=(Y=A) * 1 +(Y>A) * 4 + (Y<A) *5 


A 
a à 


REPRINTED FROM TEKNIQUES, VOL 1 NO 3 — 4050 SERIES APPLICATIONS LIBRARY NEWSLETTER 


Save and Retrieve Programs 4 to 6 Times 
Faster with the Binary Loader ROM Pack 


The Binary Program Loader ROM allows you to 
store and retrieve programs 4 to 6 times faster than 
with the BASIC commands OLD, SAVE and AP- 
PEND. It also provides a new way to overlay 
programs — the LINK command. 


2. Convert ASCII 
program files by: 


FIND j 
OLD 
KILL j \ 
FIND j 
CALL "BSAVE"” 
3. Note: the “autoload” file (usually file #1) 
should be left as an ASCII program file since a 
binary program file cannot be autoloaded. 


program files to binary 


Here’s a little program that will find all the OLD, 
SAVE, and APPEND commands in an entire tape: 


100 FOR FØ = 1 to 255 


110 FIND FØ 

120 IF TYP (0) >< 2 THEN 240 

140 ON EOF(@) THEN 240 

150 INPUT @33:A$ 

160 S1 = POS(A$," ",2) +1 

170 B$ = SEG(A$,S1,3) 

180 IF B$ >< "OLD" AND B$ >< "SAV" and 
Converting a Program to use the B$ >< "APP” THEN 150 
4051 Binary Program Loader a. a AUER 220 
by Dan Taylor d 210 PRINT "J FILE #”;FO 

220 PRINT A$ 
The Binary Program Loader allows you to store and 230 GOTO 150 

240 NEXT FØ 


retrieve programs 5 to 6 times faster than with the 
BASIC commands OLD, SAVE, and APPEND. It also 
provides a new way to overlay programs—the Link 
command. 


To convert an ASCII program tape to a binary one 


rewinds t 


MAG TAPE FILE NOT FOUND IN LINE 110— 
MESSAGE NUMBER 52 


When the program gets to the LAST file on the tape it 
tape and aborts with the error message: 


you'll need to: © 


1. Find all OLD, SAVE, and APPEND commands 
(see below) and convert them as follows: 


OLD — CALL "BOLD” 
APPEND.. a — CALL "BAPPEND”... 
SAVE ^ + CALL "BSAVE” 


NOTE: BSAVE does not allow yow to specify 
line number—it saves the whole program 
(programs rarely have SAVES in them, 
though). Also, for BAPPEND the line number 
to append at is not changed by the 
RENUMBER command. 


For example, running this program with PLOT 50: 
Mathematics Vol. 1. (approximately 3 minutes) 
produces: 2) 


FILE #1 
430 OLD 


FILE #13 
120 APPEND 1000 


MAG TAPE FILE NOT FOUND IN LINE 110— 
MESSAGE NUMBER 52 
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Decoding 4924 Tape 


Drive GPIB Status 
and Error Bytes 


by Gary Laroff 


The TEKTRONIX 4924 Digital Cartridge Tape Drive 
can act as an auxiliary storage device of the 4051 
and/or with systems that employ,the General Pur- 
pose Interface Bus (IEEE Standard 488-1975). The 
4924 can generate Service Requests to the 4051 and 
transmit information about its operation to the 4051 
in a Status Byte. If an error occurs in the 4924, an 
additional Error Byte contains information about the 
error. 


4924 DIGITAL CARTRIDGE TAPE DRIVE 


The subroutine listed below was written as the GPIB 
POLLing and interrupt service routine for an ON 
SRQ statement. The routine is necessary as many 
occurrences can cause an SRQ from the 4924. An 
End-Of-File originated interrupt may signal rewin- 
ding the tape and listing the data. Or perhaps it 
signifies MARKing a new tape file and taking some 
other kind of data. An "over-read” or "file not open” 
error would signify that the operator might want the 
program to be aborted. 


1. Subroutine description 


The 4924 and any other device on the line is 
POLLed in the normal manner. In the listing, the 
4924 is device number 3 and some other devices 


have primary addresses 4 and 20. The 4924 
interrupt calls a service subroutine at line 2000 
which decodes the status byte from the serial 
POLL (lines 2040-2120) and prints out the mean- 
ing of the status bits that have been set (lines 
2130-2200). 


The error is decoded in a similar manner and 
printed out by lines 2210-2320. 


. Sample output 


An SRQ has occurred and the status byte was 
= 97. The error code was 12. 


TEKTRONIX 4924 STATUS BITS SET : 


1 ; EOF 

6 ERR 

7 SRQ 
TEKTRONIX 4924 ERROR STATUS : 

12 END OF FILE 


3. Program listing 


The subroutine is listed below. 


1068 REM ttt SERVICE REQUEST POLLING AND RECOGNITION ROUTINE ##8tt 

1818 POLL Y,Z}3;4;20 

1020 GO TO Y OF 2600, 2000, 30 888 

1039 REM $4% END OF POLLING ROUTINE 444K 
REM torch tae ROUTINE FOR DEVICE 3 (4924 TAPE DRIVE) 44% 


E 
2030 DIM E$(260) 
soso Ora 


Sago FOR I= 1 70 8 
2070 RERA INT CAG? 2)) 
He rga He Mo dia 


88 Beasties, 92,1) 


EXT I 
C$="EOF EOT LINEALT BUSYERR SRQ@ NULL 
PRINT TRE TRON EH 4924 STATUS BITS SET 4s 
FOR I T0 8 
BersEC tA, 1,1) 
*@" THEN 2200 
denseccce, 144-3749 
iy os 


OD NADER WUN š 
290800000 
z= gzz 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
22 


NN ma m pa mea e pa a ma a 


“JTEKTRONIX 4924 ERROR STATUS :" 

2238 Eser “Donan OR ARGUMENT FILE NOT FOUND MAG TAPE FORMAT 
2248 ES=ESars 

2258 Fs=" ae ACCESS FILE NOT OPEN READ ERROR 
2268 EF=E: 

$20 ES 3 oo i CARTRIDGE OVER-READ WRITE-PROTECTED 
3 = ZEREAO-AFTER-HRITE END OF MEDIUM END OF FILE 
3500 Es =EStFS 

2318 ESADE SFS pot; 20> 

2328 P » 
2330 ir ram THEN 2350 i 


A 
237a R 
2388 REN” Ba END OF TEKTRONIX 4924 SERVICE UT INE 
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4051s Talk To Each Other 


by Chuck Eng 

Every 4051 equipped with Option | (the RS 232 data 
communications interface) has the ability to communicate 
with another 4051, which is also equipped with Option 1. 

The RS 232 interface is generally used to connect the 
4051 to a mainframe host computer or toa peripheral. Two 
4051s can, however, talk to each other through this 
interface, either directly or over a telephone line. 

This feature is a convenient method of exchanging data 
files, program files or for exchanging graphic information 
like charts or maps between installations. It is also finding 
applications in game simulation, where two people com- 
pete with each other through interconnected 4051s. 


How It’s Done 


Data communciation over telephone lines or through 
Satellites is far from news in the computer world, but we’re 
not talking in this case about communication between a 
terminal and a large host computer. We’re talking about 
communication between two intelligent 4051s. 


Let’s start by coupling two 4051s together directly—no 
phone line this time. If you only have one 4051 in your 


office, don’t Stop here. Next we will show you how you can 
talk with a friend’s 4051 over the telephone. 

1. Set two 4051s (each equipped with Option 1) 
together and power them both up. 

2. Call ‘TERMIN’ on both units (note the I/O and 
Busy lights toggling in search of the proper return 
signal from the other 4051). 

3. Plug the Option | cable of one 4051 into the other 
4051. When the lights stop toggling, you are 
communicating. 

4. Type anything on either 4051 and it appears on both 
screens. 

Now let’s put this feature to a more practical use. Let’s 
transfer a tape file from one 4051 to the other. It does not 
matter which unit is the sender and which is the receiver, 
but for the following dialogue, we will call the 4051 used to 
transmit the tape file the SENDER and the receiver of the 
file the RECEIVER. 


The following dialogue is not necessary, but it is a good 
example both of the sequence of events to communicate 
and the types of information to be exchanged. When 
RECEIVER presses DATA RECEIVE function key 3, his 
4051 will transmit ‘GO’ to SENDER and wait for an input. 
Upon seeing ‘GO’ on the screen, SENDER presses key 4 to 
initiate the data send function. When the tape units stop 
and the cursor returns, tape file transfer has been com- 
pleted. 

Now let’s apply this procedure to communication overa 
telephone line. There is essentially no difference except that 
telephone communication requires a few more preliminary 
hook up steps. Note that the ability to communicate with 
the 4051 operator on the other end of the line by typing on 
the keyboard makes this system of communication both 
simple and convenient. 


Either data phones or acoustic couplers can be used to 
link the telephones to the 4051s. Despite the fact that 
acoustic couplers are more mobile, there are no real 
differences between data phones and acoustic couplers. 
(One of the two acoustic couplers or dataphones must have 
an ANSWER capability and the other must have 
ORIGINATE capability. Two ORIGINATE modems 
cannot communicate with one another.) In this example, 
let’s use acoustic couplers. 

To establish a data communication line between the 
telephones, one of the couplers requires an answer mode. 
The answer mode is a sound frequency of approximately 
1000 Hz. This tone informs the other modem that it has its 
attention. When the other modem receives this tone, it 
responds with the same frequency completing a hookup 


with each modem having the other’s attention. The 
sequence in which hookup is made is not as critical when 
using modems as it is when the 4051s are coupled directly. 

Let’s assume you are in San Francisco and you want to 
communicate with a 4051 in New York. This is how you 


proceed: 
San Francisco New York 
Originate mode Answer mode 
1. Connect 4051 to modem through Same 
Option | cable. 
2. Power up 4051 and modem. Same 
3. Dial the New York telephone number. Answers the 


telephone call. 
4. Place telephone receiver on modem. Same 
Observe ‘carrier’ light ‘on’ to indicate 
attention on both modems. 
5. Call ‘TERMIN’. If there is no line Same 
searching (toggling of lights), 
communication is established. 
From here you proceed as in the example of the two 4051s 
connected together directly. 


We invite you to use your imagination as to how you can 
use this feature to your best advantage. 


Dialogue Appears On Both 4051 Screens 


{ Sender should have TSTRIN 


SENDER: I am sending you a tape file in data send mode already set to these parameters. 
RECEIVER: OK, what should my "“RSTRIN" paran be? Receiver enters BASIC mode and 

a sR as ot sets RSTRIN with CALL "RSTRIN", 
SENDER: Please set "RSTRIN","Q","B","C | rar, "B", "C" and returns to 
RECEIVER: DONE 


terminal mode. 


Receiver enters BASIC mode to 
SENDER: File will be 2008 bytes; please mark a file markia file withigiven byte #, then 


returns to terminal mode. 
RECEIVER: Done SNDSTG is set with CALL 
"EOLCHR”, 13, "GO", 0. This is 
SENDER: Please set SNDSTG to "GO" good way to prompt sender that 
RECEIVER: D receiver has pressed DATA 
—_ RECEIVER key. 


SENDER: Please FIND 1 and initiate DATA RECEIVE. When sender sees "GO", he 
presses DATA SEND key to start 
G0 tape transfer. 


Example of possible dialogue between two 4051s. 
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Circuit Simulation A 
by Will Gallant c D > pJ 


4051 BASIC lends itself to simulation of logical circuit b pai BD 
elements through the functions AND, OR and NOT. In the 5 a) 

example G, H and K are ”And Gates.” I and L are ”Or 

Gates.” J is a logical inverter. The output of G will be true 


(1) if A and Bare true. The output of I will be true if C or the 109 INPUT A»B,C,D»E,F,C1 
output of G is true. J will change an input true (1) toa false 120 wep AND E AND F 
(0) and vice versa. 148 J=NOTCI> 
150 K=C1 AND H 
i neadi 178 PRINT L 
Add graphics and you have a powerful teaching aid in 180 REM above circuit is to demonstrate 
the area of digital logic. 199 REM a coding application, not EE work 
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Computer Animation With 
The 4051 


by Paul Doherty, Oakland University, Rochester, 
Michigan 


Inexpensive computer animated films can be produc- 
ed by combining a super-8 motion picture camera and a 
TEKTRONIX 4051 graphics system. The technique of 
computer animation extends the capabilities of the 4051. 
For example, several hours of calculating and drawing 
the time dependence of complex data plots, can be 
compressed to several minutes of film. This adds a third 
dimension, time, to the graphics display system. The 
study of the time dependence of data is an important part 
of my use of the graphics display system, teaching 
undergraduate physics. Computer animation is also 
useful in bringing out the three spacial dimensions of an 
object. If the computer draws successive perspective views 
of a 3-D object or data plot from a continuously moving 
point of view, the human eye-brain computer will then 
quite easily perceive the 3-D nature of the object. This 
same computerized tour can be performed with successive 
stereo pairs. There are many other possibilities. 


In computer animation the computer draws one frame 
of a movie at a time. After each frame, it sends a 
command through the GPIB (General Purpose Interface 
Bus), to a camera, which exposes one frame of film. 


Very few movie cameras are suitable for the produc- 
tion of computer animated films on the 4051. An XL- 
camera is required to handle the low light level of the 
display. It must retain high resolution, have single frame 
capability, macro-focusing (preferably at wide-angle 
focal lengths), and an electromagnetic shutter release.! 
Let’s discuss each requirement in more detail. 


1We use a Chinon 555X1, super-8 camera, which is available for about 
$210. 


Exposure 


Photographing the 4051 with a super-8 camera re- 
quires the use of an 1.2 lens, an XL shutter, which exposes 
film for 1/28 second, and an ASA 160 film. The above 
requirements push the current state of the art for super-8 
cameras to the limit. The resolution of the resulting image 
is intimately connected with exposure. 


Resolution 


Tektronix graphic terminals provide high resolution 
displays. They can resolve several hundred lines per 
frame. These lines must be recorded on 5 mm, super-8 
film. Only one color film, the new Ektachrome SM 7244, 
has sufficient resolution, 100 lines/mm, and speed ASA 
160, to match the 4051.2 In black and white, tri-X has 
similar speed and resolution. (Ektachrome 160 G has 
unacceptable resolution, 40 lines/mm.) The limiting 
factor in the resolution of super-8 systems with the above 
properties is the zoom lens when it is operated at f1.2. One 
camera, the Nizo Pro, overcomes the above difficulties. It 
allows a manually adjustable exposure time of up to 1 
minute per frame. It is priced, however, near $1000. 


Focus 


At the large apertures used in computer animation, the 
depth of field is only a few millimeters. The camera must 
thus be placed an exact distance from the screen and 
exactly perpendicular to the screen for each filming 
session. A telescoping aluminum tube or other jig is a 
useful aid for positioning the camera. 


Focal Length 


The camera should be able to fill a super-8 frame with 
the 4051 screen. It should thus focus on a 6X8 inch screen. 


2This film is available at about 30 locations nationwide. Write to Kodak 
for information. In the midwest, film and processing are available at 
Legal Tapes, 8 Mile Road, Detroit, Mich. It can be processed as VNF 
video newsfilm by many local television stations. 


This can be accomplished with an8 mm focal length lens, 
which can focus to 20 cm. In general, such lenses will be 
labelled as Macro-focusing. An additional close-up lens 
can also be added. 


Trigger 


Cameras with electromagnetic shutter releases are the 
easiest to interface to the 4051. The camera is triggered on 
command from the GPIB. The circuitry described in 
Figure | assumes there is at least one intelligent device 
attached to the GPIB that will perform the necessary 
GPIB handshake. When a command such as "PRINT 
@13:” is executed it causes a negative pulse to be sent over 
the ATN line of the GPIB. This pulse is then used to 
trigger a 555 one-shot, which in turn triggers the camera. 
It is necessary to address an actual intelligent device on 
the GPIB since that device must send an appropriate 
response to the 4051 or an error condition is generated. 
The circuitry described in Figure | isan ATN line sensor, 
which will trigger the camera when any GPIB command is 


BT1 
y| 


issued. A 4051 triggered camera produces films without a 
human attendant and relieves a great deal of the tedium 
associated with animation. 


Note, the 4051 resets the location of the X=0, Y=0 
address every time the screen is paged. It does this in an 8 
position cycle. Thus, you must page 8 times between 
frames or speak to your Tektronix service technician 
about disabling this feature.? 


We have already used computer animation to explain 
tides, to examine objects in 3-dimensions, to display the 
motions of stars over the next 10° years, and to study the 
motions of isotherms near an igneous intrusion. How you 
use it is limited only by your imagination. 


3The display "reorigin feature” is incorporated into all 4051’s as a 
protective measure. Disabling this protective feature is not advised, 
unless you understand fully the possible impact of this modification. 


+6V 


BT1 6V Lantern Battery 

C1,C4 0.1 F mylar 10V 

C2 0.001 uF Disc 10V 

C3,C5 10 uF Electrolytic 10V 

K1 reed relay 6V, 50 QN.O. 

P1 sub-miniature phono-plug to camera 
a1 2N3903 NPN or similar 

R1, R2 10k 2~10% %w 

R3 11k Q $10% W 

u1 555 oscillator, timer 


Q1 
2N3903 


Fig. 1. Camera interface for use with cameras that have electromagnetic shutter release. An attention pulse from the GPIB triggers the one- 
shot. The relay is then closed for 0.2 seconds and the camera is triggered. 
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Pointing To Areas On The Screen 


by Ken Cramer 


Do you ever need the ability to point to locations on 
the 4051 screen for an X,Y readout, or to indicate a corner 
for a window or viewport? The 4952 Option 2 Joystick 
and the 4051 POINTER command are the most efficient 
way to do this, requiring only one line of BASIC code. If 
you don’t have a 4952, however, similar kinds of functions 
can be performed with the User Definable Keys and the 
following subroutine: 


1 GO TO 108 

: REN iE CURSOR MOVEMENT IS CONTROLLED 
REM BY THE FUNCTION KEYS SIX THRU TEN 

A REM DECREMENT THE X VALUE 

$2 X92X9-J9 


6 RETURN 

28 REM INCREMENT THE X VALUE 
29 al J9 

30 RETUI 

ee ne REM — THE Y VALUE 
34 RETURN 

36 REM INCREMENT THE Y VALUE 
3? Y9=Y9+J8 


38 RETURN 
40 REM REGISTER THE POINT AND 
4 REN RETURN TO THE MAIN PROGRAM 


43 RETURN 

83 REM STATEMENT 85 IS THE ENTRY POINT 
84 REM FOR THE SUBROUTINE 

85 SET KEY 

86 J9=(W7-W6)/208 


89 Y9=H8+(H9-W8>72 
98 PRINT @32,18:5 


With this subroutine you can move the “pointer” 
around on the 4051 screen by pressing User Definable 


Keys 6 (left), 7 (right), 8 (down) and 9 (up). Variables J8 
and J9 in the subroutine set the horizontal and vertical 
increments, respectively, that the pointer is moved each 
time one of the User Definable Keys is pressed. Press key 
10 to exit from the subroutine and return the X,Y location 
of the pointer to the main program. X and Y are returned 
to variables X9 and Y9 in the main program, in user 
coordinates defined by the current WINDOW definition 
parameters W6, W7, W8 and W9. 


GOSUB 90 invokes the subroutine if the current 
WINDOW definition is acceptable. Enter the subroutine 
at 85 if anew WINDOW definition has been defined or to 
position the pointer to the center of the crt. The following 
is a sample program that calls this pointer positioning 
subroutine: 


168 REM THE MAIN PROGRAM WOULD START AT LINE 100 
118 REM AND REFERENCE THE LOCATOR SUBROUTINE BY 
iza fen EXECUTING A "GOSUB 


140 REM THIS IS A SIMPLE PROGRAM WHICH PRINTS THE X,Y 
15@ REM VALUES ON THE SCREEN 
168 W6=-200 

170 W7=288 

180 W8=0 

190 W9=150 

200 WINDOW H6, H7, H8, H9 

210 GOSUB 85 

228 PRINT X9;",";Y9 

238 GOSUB 98 

248 GO TO 228 


Variations on this theme can be obtained using 


different values for J8 and J9, and using additional User 


Definable Keys for coarse positioning. 
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Plot Arrays Faster and More 


Efficiently 


A typical method of plotting arrays of X,Y points is to 
use a FOR-NEXT loop; where N equals the dimension of 
the X and Y arrays. 


208 MOVE X(1>,YC1> 
218 FOR I=i TON 

228 DRAW ROD VCD) 
238 NEXT I 


You can create this display faster and with more 
efficient coding if you use the built in array capability of 
4051 BASIC. The same display can be obtained with the 
following shorter code: 


208 MOVE gels YC1D 
218 DRAW X,Y 


For more information on the array output capability 
of 4051 BASIC see page 9-24 in the 4051 Graphic System 
Reference Manual. 
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Recording And Displaying 
TCS Graphics On The 4051 
Graphic System 


by Chuck Eng 


The 4051 is a stand-alone graphic system, but it also 
has the ability to receive and display graphic data from an 
outside source (such as a computer mainframe), as if it 
were a graphic display terminal. Tektronix’ graphic 
display terminals like the 4010 Series use the Terminal 
Control System (TCS) Plot 10 software to perform 
graphic operations. A 4051 with an Option 1 data 
communication interface can perform these same graphic 
display functions using the Option 1 4012 Emulation 
mode. In this terminal mode, the 4051 receives TCS Plot 
10 graphic data and displays it directly on the screen (see 
Fig. 1). If your 4051 is equipped with Option 1, the RS232 
interface, you can also store this TCS Plot 10 graphic data 
on the 4051 internal magnetic tape, using the DATA 
RECEIVE mode. See the 4051 Option 1 Manual for more 
information on storing data received through the RS232 
nterface on tape. 


me 


Soe SS T 

NORMAL | 

DISPLAY | 

PATH | 

4051 (IN 4012 | 

EMULATION | 
MODE) 

| 

| 

| OPTIONAL DISPLAY PATH _ 


Fig. 1. Graphic data can be displayed directly on the 4051 screen or 
stored first on tape and then transferred to the screen. 


This recording and display procedure is accomplished 
without using any software to do the data conversion or 
handle the graphics. Once the graphic data is stored on 
the tape, use the following procedure to transfer the data 
from the tape to the screen: 


1. Connect the Self Test Adapter (Tektronix Part No. 
013-0173-00) to J93, the RS232 port, on the rear panel 
of the 4051, or the Self Test Adapter (Tektronix Part 
No. 013-0173-01) to the interconnect cable. 


2. CALL ”"RATE?” to reset the baud rate. 2400 baud is 
recommended. 


3. CALL "TERMIN”. 


4. Press User Definable Key 16, ECHO OFF, to turn the 
local echo off. 


5. Find the beginning of the graphic data file. 
6. Press User Definable Key 4, DATA SEND. 

If your TCS graphics data already exists on a 4923 
Digital Cartridge Tape, this procedure should be preced- 
ed by the following procedure: 


1. Place the 4923 tape in the 4051 internal tape drive. 


2. Type Pri @ 33,0: 1,1,1 to set the 4051 in the ”No- 
Header” mode. 


3. Continue with the above procedure. 


REPRINTED FROM TEKNIQUES, VOL 1 NO 6 — 4050 SERIES APPLICATIONS LIBRARY NEWSLETTER 


Storing A Graph On Tape 
From The 4051 


By Dan Taylor 


Some 4051 applications require a large number of 
calculations to produce a graph (for example, a 3-D 
surface). It would be nice to be able to store the finished 
graph on tape and get it quickly redrawn (on the screen or 
plotter) at a later time. This can be done in several 
different ways with the 4051 and its internal tape drive. 


The most straightforward method of storing a graph is 
to add new lines of code after each MOVE and DRAW to 
write (in binary) the X-Y coordinates on tape. But storing 
only the X-Y values is not sufficient because you wouldn’t 
be able to tell the MOVEs from the DRAWs on the tape. 
A solution is to store a third number with each X-Y pair. 
The method I use is: 


1,X,Y 
2,X,Y 


fora MOVE to X,Y 
fora DRAW to X,Y 


This technique can then be extended to the other graphic 
commands: 


3,N,X1,...,.XN,Y1,....YN Array DRAW of N points 
4,X,Y RMOVE 

5,X,Y RDRAW 

6,N,X1,...,.XN,Y1,....YN Array RDRAW of N points 
7 AXIS - no arguments 

8,A,B AXIS - 2 arguments 

9,A,B,C,D AXIS - 4 arguments 

10,N,A$ PRINT the string A$ of length N 
11,A PRINT the number A 

12,A,N,A$ PRINT USING A$: A (length A$=N) 
13,A ROTATEA 

14,A,B,C,D WINDOW A,B,C,D 

15,A,B,C,D VIEWPORT A,B,C,D 

16,A,B SCALE A,B 


A simple BASIC program with graphics is: 


100 VIEWPORT 30,100,20,80 
110 WINDOW -2,10,0,300 
120 AXIS 2,50 

130 MOVE 2,100 

140 DRAW 6,200 


To store this graph on tape you would add the following 
lines to the program: 


95 FIND J! 

100 VIEWPORT 30,100,20,80 
105 WRITE 15,30,100,20,80 
110 WINDOW -2,10,0,300 
115 WRITE 14,-2,10,0,300 
120 AXIS 2,50 

125 WRITE 8,20,50 

130 MOVE 2,100 


135 WRITE 1,2,100 
140 DRAW 6,200 
145 WRITE 2,6,100 
147 CLOSE 


Note that only the code numbers for the graphic 
commands and coordinates are stored on the tape. The 
calculations required to create these coordinates do not 
have to be performed again. The graph, or 3D surface can 
thus be redrawn very quickly from this information. 


The following program can then be used to read sucha 
tape file and reproduce the graph: 


1000 PRINT “LRe-Draw a graph which is stored on tape. 
ate nur oer the tape file @ 

1 

1838 ir JOINT OR J¢1 OR J>255 THEN 1010 

pet PRI "JEnter the device number for graphic output (screen=32) = "5 


TNPU 
igea TE IF a ATRO OR D@<1 OR 0833 THEN 1040 
1080 on acre (0) THEN 4000 


8e REN pr THE NEXT GRAPHIC ELEMENT 

GO TO K bk 21008,2200, 2380, 2488, 2500, 2600, 2700, 2800, 2980, 3008 
GO TO k- 18 OF 31800,3200, 3300, 3400, 3500, 3600 

PRINT "LError: This graph file is out of sequence, 


aun 


READ 833: xe, ye 
MOVE ere re ye 


ELLIT] 
gozzom ? 


e: 
1 
1 
1 
1 
1 
1 
8: 
1 
1 
1 
1 
-i 


REM DR Aus 
rt READ @33: es 


NNNNNANNA eere ee eree 


E: 
2400 READ @33; x8, Ye 
2410 RMOVE €09: X0, YƏ 


~- 2 ARGUMENTS: 
2889 READ eas: x®,¥8 

2810 AXIS e@De: xe, ve 

2820 GO TO 


18 
3198 REM PRINT USING ASIA : 


The above technique is very general. There are a 
number of more restrictive methods of storing the graph 
on tape that can greatly increase the speed of the 
redrawing. One factor that slows redrawing is that the 
commands MOVE and DRAW X,Y must transform the 
X,Y values from user defined units into graphic display 
units (GDUs) and perform any clipping required at the 
VIEWPORT boundaries. 


If your graph is produced with just the WINDOW, 
VIEWPORT, MOVE, DRAW and PRINT commands, 
and no clipping occurs, it is fairly simple to speed up the 
redrawing, by converting user coordinates to GDUs 
before they are stored on the tape. 
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If you use WINDOW W1,W2,W3,W4 and VIEW- 
PORT P1,P2,P3,P4, then you can construct the follow- 


ing relationships to convert user defined coordinates to 
GDUs: 


a = P2— PI 
w2 -— Wi 
b= Pl — a* WI 
c= P4 — P3 
W4 — W3 
d = P3 — c* W3 


X and Y, in GDUs, is thus equal to: 


X=a*xt+b 


Y=c*y+d where x and y are in user defined 
units. 


Note that MOVE x,y is now the same? as PRINT @32,21: 
a» xt+b,c*y+d,and DRAW x,y is the same as PRINT 
@32,20:a* x+b,c* ytd. 


As with the first method, the graphic data can be 
written on tape in triplets, in the form: 


20,X,Y draw to X,Y (X,Y arein GDU’s, not 
21,X,Y moveto X,Y user units) 

1,N,A$ print A$ of length N 

2,A print the number A 

3,A,N,A$ print USING AS: A$ is of length N 


In writing a program to create this tape file, you use the 
relationships for the conversion factors a, b, c and d to 
convert coordinates from user defined units to GDUs. 
For example: 


3200 READ @33:x0, NG 


34 Ff REA D e33: x8, vo, X2, Y2 
3410 W HINpON XO, YO, X2» Ye 
3420 GO TO HL og 

3498 REM UVIEWPO! 


3508 READ @33: KB, Yas x2, Y2 
3518 AENRORT os X0, YO, X2, Y2 


REM PICTURE FINISHED -- MOVE CURSOR TO UPPER RIGHT: 
4088 INPUT @DO: XO, Y 

4010 PRINT @D@,21:x8,Ye 
4020 HONE 


The program to read the resulting file from tape does all 
the graphics with PRINT commands, using the 
parameters 20 and 21 to determine if the print is a move or 
a draw (see the 4051 Graphic System Reference Manual, 


pages 9-27 and 9-4}, for the use of secondary addresses 20 
and 21). 


100 READ @33:S 

110 GO TO S OF 3088,3108,3200 

120 REM BOLE Waa DRAW <GDU LEVEL): 
130 READ 
140 
150 


e3 vye 
PRINT Ras! x0, Yð 
Go TO 
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It is several times faster than the first method. If your file 
doesn’t have any PRINT commands this simplifies to: 


1100 READ @33:S, X0, YO 
1110 PRINT @08, S: X8, YƏ 
1120 GO TO 1180 


The last technique is another two to ten times faster 
than the second method. It makes use of the fact that a 
graph normally consists of a move followed by a number 
of draws. The structure on tape is: 


K,Z (for K > 2 and even). K is the length of the linear 
array Z. And Z consists of alternating X and Y 
values - move to the first X,Y pair in Z and then 
draw to the rest. (X,Y are in GDU’s) 


-1,N,A$ Print, as previously 
-2,A Print, as previously 
-3,A,N,A$ Print, as previously 


A program to read sucha tape file and produce a graph is: 


REAI 


0 @33: 
0 TO -K OF reat iat 
GO 


ea 

10 

20 REM DATRIX “CURVE” U): 
ae LETE 


50 READ 

69 

70 IF K=2 THE! 
80 

98 


When there are an average of 10 draws for every move 
this method is 7 times faster than the second method. The 
main difficulty with this last method is that your program 
to create the appropriate tape file becomes more com- 
plicated. (Because you have to know how many draws will 
follow before any can be put on tape.) 


\The size that the tape should be marked depends upon how complicated 
your graph is. Each number ina binary file requires 10 bytes. Each string 
requires 3+ the number of characters in the string. A normal graph might 
have 100 draws (3 x 100 x 10 = 3000 bytes), therefore, using 10,000 byte 
files would be adequate for most graphs. (Binary files are used because 
they are faster.) 


2Except for clipping i.e. this is true as long as W1 < x < W2 and 
W3 < y < W4. 


ere 
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An Unusual Use of MOVE and DRAW 


By Dan Taylor 


In normal usage, the key word MOVE transforms 
coordinates from user units (window units) to graphic 
display units (GDUs). If the GDU location is off screen, 
nothing happens. If the GDU location is on screen, thena 
move (with the beam off) is done to the point, even if it is 
outside the viewport. 


DRAW also transforms user units to GDUs. A vector 
is then drawn toward the point. If the point is outside the 
viewport, the vector is stopped (clipped) at the viewport 
boundary. 


The simplest code for a draw and a move is equivalent 
to: 


DRAW @32,20: 
MOVE @32,21: 


Where 32 is the address of the screen, 20 tells the screen to 
move with the beam on; and 21 tells the screen to move 
with the beam off. 


The screen (or plotter) doesn’t know what keyword 
(MOVE or DRAW) was called, only whether to move 
with the beam on or off. You can thus call a MOVE 
@32,20: to draw a vector that goes outside the viewport. 
Similarly, you can call DRAW @32,21: if you want a 
move (with the beam off) clipped at the viewport 
boundary. 


Sa Re O-PS 
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GOTO And GOSUB Extend 
Branching Capability 


By Ken Cramer 


If you are an ex-FORTRAN programmer, some of the 
BASIC constructs in the 4051 may seem limited, par- 
ticularly the branching associated with the true and false 
consequences of IF statements. The computed GOTO 
(GOTO n OF 500,600,700...), however, in 4051 BASIC 
allows extended branching capabilities similar to FOR- 
TRAN. 


The FORTRAN IF syntax allows branching to three 
different statement numbers as a consequence of a minus, 
zero, or positive result. When using the 4051, the 
FORTRAN statement: 


IF(A) 100,200,300 
can be rewritten in 4051 BASIC as: 
GO TO SGN(A)+2 OF 58a, 608, 7 
REM BRANCH GOES TO HERE IF A IS NEGATIVE 


ren é CONTENTS OF ROUTINE 


M 
GO TO'1000 
En BRANCH GOES HERE IF A IS EXACTLY ZERO 


Ri . 

REM CONTENTS OF ROUTINE 

GO TO 1 

He Ren BRANCH GOES HERE IF A IS POSITIVE 
REM CONTENTS OF ROUTINE 


@ RI 
798 GO TO’ 1000 


If A is an expression or A is a computed value, the chances 
of A being exactly zero are pretty small. To bring the 
FUZZ factor into the evaluation of A fora negative, zero, 
Or positive result, use the following statement: 


200 GO 10 SGN(ADE(A=O>+2 OF 500,680,700 
gee pene BRANCH GOES HERE IF A is NEGATIVE 


RE 
530 REM CONTENTS OF ROUTINE 
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CO To 10 
REN BRANCH GOES HERE IF A IS WITHIN FUZZ OF ZERO 


REM 
REM CONTENTS OF ROUTINE 
698 GO TO 168 

ee ren BRANCH GOES HERE IF A IS POSITIVE 
men CONTENTS OF ROUTINE 


£o TO 1080 


4051 BASIC expands the computed GOTO capability 
with the computed GOSUB statement. GOSUB is not 
available in FORTRAN. The FORTRAN statements: 


IF (A=1) CALL SUBI 
IF (A=2) CALL SUB2 
IF (A=3) CALL SUB3 


can be reduced in 4051 BASIC to one line of code: 


288 GOSUB SGN(A>&(A=B)+2 OF 500,600,7? 
She Re REN EXECUTION OF ANY OF THE SUBROUTINES RETURNS HERE 


REN BRANCH GOES TO HERE 
REN CONTENTS OF ROUTINE 
REM 


IF A IS NEGATIVE 


RETURN 

@ REN BRANCH GOES HERE IF A IS WITHIN FUZZ OF ZERO 
REM CONTENTS OF ROUTINE 
RETURN 

@ REN BRANCH GOES HERE IF A IS POSITIVE 
REN CONTENTS OF ROUTINE 


RETURN 


When you want to execute a subroutine on a true or 
false condition, a dummy RETURN statement can be 
used to effect the same result. For example, the following 
FORTRAN operation: 


IF (A< 0) CALL SUB 1 
can be accomplished in 4051 BASIC as 


266 GOSUB <(A<0)+1 OF 500,600 

218 REM THE SUBROUTINE RETURNS HERE 

226 REM 

230 REM 

580 REM THE SUBROUTINE STARTS HERE 

916 REM . 

520 REN 

S98 REM THE FOLLOWING RETURN STATEMENT IS ALWAYS EXECUTED 
S95 REM REGARDLESS OF A's VALUE 

666 RETURN 
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Easy Cyclical Counters 


By LeRoy Nollette 


It is often necessary to havea counter in your program 
that counts up to a certain number, then starts over. Aday 
of the week counter, which counts up to 7 then starts over, 
is one example. The simplest way to write such a counter 
1S: 


=ü 
HHXCHS 741 


168 GO TO 118 


When W in line 110 is less than 7, it is increased by 1. 
When W is equal to 7 it becomes 1. This counter can be 
written to count to other numbers merely by changing the 
7 to the desired upper limit. 
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More Information on 
Computer Animation Using 
the 4051 


By Will Gallant 


Last month’s article by Mr. Paul Doherty of Oakland 
University in Rochester, Michigan on computer anima- 
tion with the 4051 (see Tekniques Vol. 1 No. 5) presented 
some useful techniques for making super-8 animated 
films with the 4051. Several of us have been experimen- 
ting with computer animation and our after hours 
recreation in cinema photography has produced some 
notes we’d like to share with you. Like Mr. Doherty we’ve 
discovered that with some method of automatically 
triggering the camera single frame and some thoughtful 
programming, you can make animated films quickly and 
efficiently with a minimum of operator interaction. 


A camera we use is the Minolta XL400. It has a single 
frame electronic shutter and a good /1.2 lens. 


We use a different method of triggering the electronic 
shutter than suggested in the last issue of Tekniques. Pin 
11 of the hard copy jack (J41) on the 4051 provides a 1/25 
of a second trigger pulse whenever a COPY command is 
executed. The single frame input on the Minolta XL400 
triggers when its input drops below 300 ohms. Fig. 1 
shows the interfacing required to trigger your camera 
from the hard copy jack. 


Also as Mr. Doherty indicated, the resolution and 
brightness of the 4051 pushes low cost super 8 cameras 
and film to the limit. If you can tolerate less detail, movies 
made with Kodak ASA160 color film are adequate for 
projection in a very dark room. This film is readily 
available and adequate for most filming of graphic 
objects, however, text is very difficult to pick up clearly. 
GAF makes an ASA500 black and white film for super 8, 
but again you can expect some loss of detail in the 
bargain. 


Minolta XL400, 
using ASA160 
or Faster Film. 


J41 Hardcopy Jack 
(Pins 11 and 15) 


Fig. 1. Interfacing required to trigger camera’s electronic 
single frame from hard copy jack. 


For maximum brightness of the movie, macro- 
focusing lenses are required, but they are hard to focus 
because of the small depth of field. One trick we learned is 
to hold a ruler perpendicular to the glass on the 4051 
screen. The reflection of the ruler on the screen allows you 
to read the distance from the glass to the phosphor 
(typically 3/4 inch). This can then be added to the 
distance from the glass to the lens. 


If you can tolerate dimmer movies, it is much easier to 
place the camera back about 5 feet from the screen and 
zoom in. Your depth of field in this case increases to about 
1-1/2 inches. For maximum brightness of the finished 
movie, the film should always be shot in a very dark room 
or construct a tube between the 4051 and the camera. 

With the availability of the automatic shutter control, 
you should be able to write programs to create the graphic 
images to be filmed without the need to have an operator 
on hand. The following is a simple program that suggests 
the general approach. Note that after the COPY com- 
mand in line 240, the screen is erased eight times. This 
erase loop is necessary because of the automatic origin 
shift in the 4051. It is recommended that this feature not 
be disabled. The total time to complete this erase loop is 


only 6 seconds, which doesn’t add much to your per frame 
shooting time. 


INIT 
110 SET DEGREES 
128 DATA R 2o 0, -50, -25, 50, 0, -50,0 
130 RIN XCS)5¥ 


READ X,Y 
150 REM ROTATE A BOX THRU 10 REVOLUTIONS 
FOR I=1 TO 10 


170 FOR J=0 TO 368 STEP 3 

186 ROTATE J 

198 MOVE 65,58 

200 RMOVE ¥(1),YC1> 

218 FOR K=2 TO 5 

220 RDRAW X(K),Y(K) 

238 NEXT K 

248 COPY 

250 REM ALLOW FOR SLOW SHUTTERS 
266 FOR S=1 TO 100 

270 HEXT S 

286 REM ERASE THE SCREEN AND REORIGIN 
296 FOR L=1 T0 8 


Here are a few methods of speeding up filming. When 
you make three dimensional transformations and 
rotations, the optional Matrix ROM pack may speed up 
calculation time as much as 3 to 10 times. You might also 
do your calculations before filming and store the graphics 
on tape. (See the article on page 1 of this issue of 
Tekniques titled “Storing Graphics From the 4051 On 
Tape”.) 


Another technique found to speed up filming is to take 
two frames of each graphic display, and then use larger 
increments of change between each transformation or 
rotation of the graphic image. You get the same rate of 
change of the image, but it takes half as long to film. 
Remember to wait a half second or so between COPY 
commands to allow your shutter to cycle. The following 
table gives you the filming and projection times for 
various intervals between frames. 


Filming And Projection Times 
Filming interval Filming time Time required to 
between successive required to expose 50 feet of 
frames in seconds. produce 10 film. 
seconds pro- 
jection time 


at 18 fps. 
5 1.5 min. 
l 3 min. l hr. 
2 6 min. 2 hr. 
4 12 min. 4 hr. 
8 24 min. 8 hr. 
15 45 min. 15 hr. 
30 1 hr. 30 min. 30 hr. 
60 3 hr. 60 hr. 


eee LL 
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Using The POINTER Command in 
Interactive Programs 


By Ken Cramer 


When programming interactive applications on 
the 4051, it is sometimes desirable to input a 
character without it being echoed to the 4051 
display, or to have the program respond to the 
typing of a single character, rather than a character 
followed by a carriage return. 


You can use the POINTER command to ac- 
complish both these operations as the following 
contrasting examples demonstrate: 


Standard Method: 


100 PRINT aS you want instructions? (Y or N)" 
110 INPUT A 

115 A$= SEGCAS, 15 1) 

120 IFCA$S="¥"> or (A$="y") THEN 200 

138 ines aaa or (AS="n"> THEN 158 

148 GO TO 100 


Using POINTER: 


100 PRINT "Co you want instructions? (Y or N)" 
110 POINTER ¥X,Y,2 

120 IF 2$="Y" OR Z$a"y" THEN ego 

130 IF Z$="N" OR 2$="n" THEN 150 

i GO TO 188 
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In this particular use of the POINTER command, 
the returned X, Y values are of little consequence 
unless you have a 4952 Joystick. 


The advantage in using the POINTER command 
is that it requires only one keystroke to respond to a 
question, and no response, which may disrupt the 
picture, is echoed to the screen. Keep in mind the 
absence of a blinking question mark as an input 
prompt and the unavailability of the keyboard 
editing keys to correct typing errors. 
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Renumbering Programs 
By Will Gallant 


Once you have written and debugged a program, 
it is often desirable to renumber the program so that 
the subroutines begin on hundreds or thousands. A 
typical technique for renumbering a program is to 
renumber and list, renumber and list, etc. This 
procedure can be simplified considerably using a 
GOTO ... IF ... statement. 


The first step in this simplified renumbering 
procedure is to list the program and record the line 
numbers of the first statement of each subroutine. 
Next, add a GOTO statement in an unused space 
prior to statement 100. In this example, assume that 
subroutines start at lines 230, 380 and 610 and that 
you would like them to start at 1000, 2000 and 3000. 
The initial GOTO statement would then be: 


1 GO TO X OF 230,380,610 


Now call a RENumber operation followed by a 


command to redisplay the GOTO statement (press 
the RECALL LINE edit key to redisplay line 1). 


REN 1008, 18,238 
1 CRECALL LINEJ 
1 GOTO X OF 1000, 1138,1380 


After each renumber operation, the line numbers in 
the GOTO statement are automatically updated. 
The new line numbers can then be used in the next 
renumber operation. 


REN 2006, 18,1158 
1 CRECALL LINE 
1 GOTO X OF 1000, 2080,2238 
REN 3808, 18,2238 
1 CRECALL LINE 
1 GOTO X OF 18000,2000, 3008 


This procedure is very efficient since you only have 
to redisplay one line after each renumber operation 
rather than relist the whole program. 


REPRINTED FROM TEKNIQUES, VOL 1 NO 7 — 4050 SERIES APPLICATIONS LIBRARY NEWSLETTER 


Truncation Utility 
By Judy Peterman 


The program illustrates a one-line process that 
allows the user to truncate a number to a specified 
number of digits, not the number of digits to the right 
of the decimal point, but the total number of 


significant digits. It can be used to avoid round-off 
error or to prepare far a PRINT USING format. 


NIT 
RINT "LHOW MANY 


I 
pi DIGITS OF ACCURACY"4 
it NT" 


= DO YOU HAI 
” ENTER @ “5 


IF F820 THEN 198 
POsINTC10ICDA IHT C=LETCOGEKES) 2 SEBO S320 OF1UT AGT CORECER)29? 


@ GO TO 150 


ONDUA UN= O 
SOoOo000aoo 


I ee ee ee ee 


ow 
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MARKING AND RE-MARKING 


A new tape? Stretch it out before MARking it. 
Insert it in the 4051 and type FIN 2 (any #except@ or 
1). The tape will be searched to the end and this 
message will appear on the viewport: 


FIN2 


MAG TAPE ERROR IN IMMEDIATE LINE - MESSAGE NUMBER 54 


Press the REWIND button and the tape will be 
ready for use. 


Any files following the file on a tape that has been 
re-MARked will be lost. Example: You have 5 files 
saved on a tape. File #2 is too small for the revised 
program and you MARK it again enlarging it. As a 
result, files 3, 4 and 5 are lost and cannot be 
recovered. 


Herman Kan of Boeing suggests when you are 
developing a program to use the first file on a tape 
and mark it the full memory capability of your 4051. 
Using File #1 will save you the time of searching over 
other programs for the file on which you’re working. 
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Branching On Alpha Response 
By Dan Taylor 


Here’s another branching technique that allows you to 
branch upon a response to a choice of answers: 


200 PRINT “Input your choice of the menu "$ 

210 INPUT AS Cor POI A,B, ASI 

220 pong ige oh 

238 GO T 0 POSC" HARIG" AS, 1) OF 1006, 2006, 3660, 4800, 3000 
248 GO TO 286 


This method allows a 5-way branch based on the first 
character entered in the response. 
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Branching On YES-NO The advantage of this method is that it accepts Y, YES, y, 
yes, N, NO, n, or no as valid answers. If line 440 is 

Leroy Nollette, Application Specialist, omitted, the program defaults to a “yes” answer when the 

Tektronix, Inc. RETURN key is pressed with no prior entry. 

Looking for a quick way to convert alpha responses to or 


"Yes-No” questions into GOTO addresses? Try this. 
420 GO TO POS<*YESNO",AS,1> of 580, 400, 400, 680, 408 


460 PRINT "DO YOU WISH TO CONTINUE <YES OR NO)?" 
410 INPUT A$ 


300 fen Yes PROCESSING 


600 REM HO PROCESSING 
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Drawing Upside Down or Backwards right hand side of a chart comparable to the one at the left. 
Reverse the left and right margins and reissue the AXIS 


By Leland C. Sheppard command. Presto! A reversed axis at the right. 
Sunnyvale, California 94086 


An application for upside down: two arrays of numbers, 


You can have the 4051 draw backwards (right to left) or one of which represents positive values to be drawn and 
upside down, including axis drawings with the tic marks the other negative values where both arrays are stored as 
pointing to the left. The method is simple: reverse the positive numbers. You could make the one array 
margins specified in the VIEWPORT command. negative; you can also reverse the upper and lower limits 


and achieve the same effect. Try it! 
To go from top to bottom you reverse the upper and lower 
limits; to go from right to left, the left and right limits (I 
have never tried both at the same time). 


Example applications might be to draw an axis at the 
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Each device on the GPIB supplies its own power. When 
the devices are off, they load down the GPIB. Therefore, 


to enable effective interfacing, more than half of the 
peripherals on the GPIB must be powered up. 
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Cartridge Respooling 


If you have occasion to take a data cartridge apart for 
respooling, don’t use a magnetic screwdriver. Magnetic 
screwdrivers, like other magnetic surfaces, can damage 


the data on a tape, causing some information to become 
unreadable. 
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Add a Byte to Binary String 


When READING binary strings from tape (internal 4051 
tape as well as the 4924 Digital Cartridge Tape Drive), 
always dimension string variables one byte larger than the 


number of characters to be read. This allows memory 
space for the appended auxiliary byte utilized by the 4051. 
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Attention Applications Library 
Contributors 
If your program contains several files, please use variables 


for the file numbers when calling these files during 
execution. This will enable other users of your programs 


to recode easily, since the program files can be put in any 
location on the tape. (Don’t assume that your program 
will always use the first files on a tape). 
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Speed It Up with Strings 


By Leland C. Sheppard 
Sunnyvale, CA 


The Flowchart Program (51/00-8005/0) has recently 
been revised to speed up its execution time for any given 
program (see the Editor’s Note in this issue). The string 
technique described here saved considerable time (and 
memory too) using that revision. Some of you may want 
to use it as well. 


The 4051’s trace facility was used during the revision to 
determine where time was being spent. Most of the time 


was spent in several FOR/ NEXT loops. These loops were 
used to build and scan the program’s branch table, and to 
scan each incoming statement for control characters. 


The results were significant when the string technique was 
applied to Flowchart for those functions. Times were 
reduced two-thirds to three-quarters. The technique is 
straight-forward, fast, and uses less memory than a 
strictly numeric approach. The increase in speed results 
from scanning a list of numbers (in a string format) with 
one POS statement instead of an entire FOR/NEXT 
loop. Even with the extra statements required to set up the 
string, the time savings are significant still. 


The memory saving results from the fact that only | byte 
per digit is required to store the number ina string where 8 
bytes are required for the equivalent numeric variable. 
The technique can be applied in any case where many 
integer numbers must be referenced or saved, and where 
the numbers are relatively small (say 5 digits or less). 
There is one restriction on this technique. All the numbers 
must be stored as the same length (by padding with blanks 
if necessary) to facilitate the search/ scan. Otherwise, 100 
cannot readily be differentiated from 1000, and so forth. 


The method used to build the string and scan it are shown 
here. 


1. To define the string: DIM A$(B*4) where B is the 
number of numbers to be included (in this case the length 
is restricted to 4 digits); A$=”” to initialize the string to 
zero length. DIM B$(4),C$(4) as 2 working strings for 
building and extracting from the list. 


2. To build entries in the string: In the Flowchart 
example, this is used to extract statement numbers from 
program statements and store them. P=POS(D$,” ”,1) 
which will yield the length+1 of the statement number; 
C$=SEG(D$,1,P-1) to extract the statement number 
from the program statement; B$=” ” to initialize this 
string to its full length (4 bytes); BS= REP(C$, 1, LEN(C$)) 
to left-align the number (while retaining excess blanks for 
padding) in B$; A$S=A$&B$ to tack the number onto the 
string of numbers in A$. D$ is assumed to have been 
defined to hold 1 program statement. 


If the numbers must be ordered other than the way they 
are read A$ can be initialized to its full length with blanks 
and the REP function can be used to insert individual 
numbers into it. However, if a choice exists the con- 
catenation technique used above is much faster than 
REP. 


3. To scan for a particular number: (PS is assumed to 
contain a left aligned value 4 digits or less, padded with 
blanks at the right if necessary) LET Y=1 to establish the 
search start; P=POS(A$,B$,Y) to get the starting location 
of B$ if it exists; IF P=0 THEN.....B$ is not contained in 
A$; LET Y=P+1 to establish the point at which to assume 
the search. A non-zero result does not guarantee we’ve 
found B$ unless the value of P is an integral boundary in 
A$. For example, IF (P+3)/4 # INT ((P+3)/4) then go 
back and try again, we’ve overlapped 2 numbers and have 
not found B$. An example of this would be where A$ 
contained 3 numbers, 1420, 1500 and 2015, A$ would 
appear as ”142015002015”. The POS function would yield 
P=3 but would fail the integral boundary test if B$ were 
”2015”. 


One other problem exists when using a FOR/ NEXT loop 
instead of the string technique for this kind of an 
application. When you have found what you are looking 
for, you will presumably exit the loop before exhausting 
the loop count. That is, you will branch out of the middle 
of it. This loses 26 bytes of memory every time you make 
such an exit; given enough such exits you’ll run out of 
memory! There is a Programming Tip in this issue to 
restore the 26 lost bytes. 
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Centering Text Strings 


by Ken Cramer 


Information is often conveyed best when the data is 
presented graphically. Often, however, the graph alone 
doesn’t tell the whole story. Alphanumerics such as graph 
titles and axis labels make a graphic presentation more 
understandable. One of the frequently encountered needs 
is text that is centered about a vertical axis. One method is 
to move the cursor to the center point, count the number 
of characters, divide by two, backspace and print the 
string. The following BASIC statements perform text 
centering: 

119 REN Ay IS THE STRING T0 BE CENTERED UNCTION 


120 MOVE X,Y 
A BsrSEGU Y HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH ” s L, LENCA$)72) 


There is also a way to center text using a graphic move 
rather than backspace characters. This can result in a 
speed advantage, especially when using the plotter. The 
BASIC statements which perform this are as follows: 


REM X,Y IS THE LOCATION WHICH THE TEXT 
REM WILL BE CENTERED AROUND IN USER DATA UNITS 
e REN M D IS THE DEVICE ADDRESS 
INP@D, 24: X1,Y1 ger unns Ua SCREEN 
Ren meget i IN_TERMS 
REM A THE STRING ro BE CENTERED 
iz eene $ ae X-AXIS ALPHASCALE FACTOR FOR THE PLOTTER 
188 INPUT @D,24: 
198 PRINT @D, 21: Xie thencag- 8.588, 896(D=32)+8. 5¥S4(D< >32)), Y1 
200 PRINT @D:A: 


L ————————————— 
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Saving Memory 
FOR/NEXT Loop Exit 


by Leland C. Sheppard 
Sunnyvale, CA 


Anytime you exit a FOR/NEXT loop before the loop 
count is exhausted, i.e., branch out of the middle of it, 26 
bytes of memory are lost. Another 26 bytes are lost each 
time the exit is taken, so it is possible to run out of 
memory. To prevent this from occurring, bracket the 
FOR/NEXT you are exiting witha dummy FOR/NEXT 
and branch to that dummy. 


Example: 
Bad Loop: 


FOR I=#i TO 18 

IF J(1)=@ THEN 5 

NEXT I 

5 JCD esCI +1, etc. 
Corrected (memory saving) Loop: 

FOR A0=1 TO 1 

FOR I=t TO 10 

IF J¢1>=@ THEN 5 


(dummy) 


NEXT 1 
5 MEXT AB 
JCD =SCD 41, etc. 


(end of dummy) 


The 26 bytes are used by the 4051 software to keep track 
of the beginning of that loop (each loop) and frees the 
memory when the loop count is exhausted. If you branch 
out of the middle, the count is never exhausted and 
therefore the memory is never freed. When the end of the 
dummy loop is reached (NEXT A0) the software thinks 
that both loops have been satisfied and will free the 26 
bytes used for each; no memory is lost this way. 


eee 
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Numeric Quicker Sort on 4907 Disc 
Unit 
by Gary P. Laroff 


The following program is an adaptation of the 
QUICKER SORT program from General Utilities 
Programs, Volume 1, PLOT 50: 4050A08. Modifications 
allow using its powerful sort subroutine on data files 
stored on the 4907 FILE MANAGER. 


One of the first necessary general purpose routines 
required for a disc-based system is a sort routine that does 
not require having all of the data in the 4051 at one time. 
Here we are providing a subroutine, accessible from a 
user program to sort a linear array of numeric data into 
increasing order by the fastest general purpose sorting 
method available. The direct access capability of the 4907 
allows REAding and WRiting data into file records in 
any order. Thus, the 4051 need read only two numbers 
into its memory at any time to perform the sort. Data 
REAd times from the 4907 disc are further increased by 
the large 4907 data buffer arranged in 15 caches of 256 
bytes each. Data, requested by the 4051, that resides in 
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one of the buffers is automatically sent by the 4907 
without wasteful rereading from the disc. The 4907 knows 
the content of its buffer. 


The subroutine is R.S. Scowen’s (Scowen, R.S., 
"Algorithm 271, Quickersort”, Communications ACM, 
Vol. 8, #11, Nov., 1965, pp 669-670) method based on 
bisection and recursions. See this reference for the sort 
methodology. 


The Quickersort subroutine begins with line 2000. The 
sort is performed on any file that has been opened as 
logical unit number one. Lines 100-130 are initialization. 
Lines 1000-1460 provide an example of a program that 
uses the subroutine. This example program generates a 
random number array that is sorted with the Quicker Sort 
subroutine. 


DISC OPERATIONS 


Line 
Number Function Performed 


110 
120 


Set time and date. 
Address and enable device 0. 


1120 Define user library “GPL”. 3598 IF AABE THEN 2440 
2308 READ 81,A4:H4 


1130 Delete files in library. 2318 IF H4ac=A3 THEN 2260 
1140 Define file "SORTDATA’” in 330 READ sise6:ce ooo 
library “GPL” to hold the Sree eee h 300 
data to be sorted: 2308 fee gil 7 
m ” A H . 
i public file bate WRITE Ri B6:AS 
C” contiguous records, for speed 2420 eee ose 
”A0” number of records, equals 2450 WRITE BiBi CG 
number of random numbers 2470 TF BesBoC=Bive2 THEN 2520 
to sort 3500 BizBer1 
”10” size of sequential record, one 2320 B?ni 
number $340 B2cB6-1 
1150 Assign file ”GPL/SORTDATA” 2ee Babasa 1 2500 
“I” logical unit number, compatible Bee Ga fo 290 
with sorting subroutine Sele bieba- SS ee 
”F” read and write access 263 Beet 
Q$ status 2670 RETURN 
2670 REN ¥XKXEKEND OF ONE FILE SORT#K444¥ 
2680 REM 


To run the program, just use any formatted diskette. To 
use the sorting subroutine in one of your programs, delete 


lines 100-1460 and use only lines 2000-2680. THE SORT ALGORITHM ITSELF IS IN A SUBROUTINE STARTING AT LINE #2098. 
LINES @1806-1468 ARE AN EXAMPLE OF HOW TO USE THE SUBROUTINE: 


44 ONE FILE SORT #4 


HOW LARGE A RANDOM ARRAY WOULD YOU LIKE FOR A TEST SORT = 25 


100 INIT 
110 CALL "SETTIM", "28-SEP-77 21:08:00" NUMBERS TO BE SORTED 
120 CALL_"MOUNT",@,°" 
130 PRINT @32,26:2 6465 7986 
16654 19391 
11316 13693 
1000 REM 24951 11386 
1010 REM #$łŁtłSTART OF ONE FILE QUICK SORT DRIVER ROUTINES&¥ttx 331e 18863 
1020 REM 1998 12053 
1038 PRINT "hlar ONE FILE SORT RENN 
1840 PRINT "THE SORT ALGORITHM ITSELF IS IN A SUBROUTINE STARTING AT"; 
1050 PRINT " LINE #2000. ILINES #1000-1460 ARE AN EXAMPLE OF HOW TO "; 
1060 PRINT “USE THE SUBROUTINE: JJ" SORTING NUMBERS 
1878 PRINT "HOW LARGE A RANDOM ARRAY WOULD YOU LIKE FOR A TEST SORT = "; 
sage gerer AB SORTED NUMBERS 
el REM tg DEFINE USER LIBRARY "GPL" WITH DATA FILE “SORTDATA" 3310 
1110 REM 6465 
tid CALL "USERLIB", “GPL” 10159 
1138 KILL "SORTDATA* 11799 
114@ CREATE “SORTDATA", "UC"; AB, 10 14222 
1158 OPEN *SORTDATA"} 1, "F", QS 18863 
1170 REN 444 GENERATE RANDOM NUMBERS TO SORT 
1190 PRINT Pe TO BE SORTEDY" 
1208 FOR I=1 TO A@ 
1218 AI=INT(1BOSAGERND(-2)+1> 


1220 WRITE #1, I:A 
1238 PRINT A9j "I"; 


INT 
ieee fount "JISORTING NUMBERS" 


70 
1280 REN 44% GO TO QUICKERSORT SORTING SUBROUTINE 
1298 REN 
1300 GOSUB 2810 
eta a AQ<=32 THEN 1378 
1338 REN ttt OUTPUT LIST OF SORTED NUMBERS 
1348 REM 
1350 PAGE 
1368 PRINT 
1370 PRINT RRORTED NUMBERS," 
1330 FOR I=i TO AG 
1398 READ #1, 15 A6 
1480 FEINT pee ii 
1410 NEXT 
1420 PRINT "932,26: 8 
1439 END 
1440 REM ASSEKKEND OF ONE FILE SORT DRIVER ROUTINES$%%łt 
1450 REN 
1460 REM %---~--------~-------------- ~~ ~~~ 2 = +--+ --- --------- t 


2000 REN 

2016 REM *ZtŽŁSTART OF ONE FILE SORTHRRRR% 
2020 REN 

2038 DELETE B3 

2048 DIM B3<24> 

2050 IF A@<=1 THEN 2650 
2068 B4=0 

2870 Biz1 

2088 B2=Ae 

2098 IF B2<=B1 THEN 2600 
2108 A5=0 

2110 IF B2-B1<1 THEN 2550 


2120 IF B2-Bi>1 THEN 2200 
2138 READ @1,B1:G1 

2140 READ @1,82:G2 

2158 IF nieaz THEN 2550 
2160 A2= 

2170 WRI fi #1,B1:G2 

2180 WRITE #1,B2:A2 

2190 CEI 19 2558 

2288 


2218 BS= INTO. 54(B1+8B2)) 


2240 READ #1,B1:G! 
2250 WRITE #1,85:G1 
2260 B6=B2 
2270 A4=B1 
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Clean and Cool When fingerprints and dust accumulate on the surface of 

the 4051 display, remove them with glass cleaner and a 
As a part of your regular maintenance program, don’t soft cloth. It is easier and more effective to perform this 
neglect cleaning the cooling fan filter on the back panel of cleaning when the display surface is cool. Glass cleaners 
your 4051. This is particularly important in a dusty are less likely to streak when applied to cool surfaces. 
environment. 

See Section 10 of the 4051 Graphic System Operator’s 
To avoid tape errors and excessive tape wear, clean the Manual for more explicit instructions on the limited 
tape head surface with isopropyl alcohol and a swab. The maintenance required by the 4051. 


head surface should be cleaned at least every 1,000 hours 
of average 4051 use. More frequent cleaning may be 
necessary in a non-office environment where dust and oil 
are present. 
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H i 1. To convert a decimal number to binary: 
Binary Counters in BASIC A$=CHR(A)—the "ASCII representation” of A is 


(Save Memory Too) actually the decimal value stored in binary; the 4051 
software will now allow you to store that value (A$) in 
by Leland C. Sheppard another string (of counters, page numbers, etc.). For 


example, if the value of A is 67 decimal (as in say Page 
# 67) then the CHR function would represent it as the 
character ”C” but the decimal equivalent is still 67. 


Sunnyvale, CA 


During the rewrite of the Flowchart Program (51/00- 


8005/1) it became evident once again that necessity really 2. To convert binary to decimal: A=ASC(A$); you now 
is "the mother of invention.” have the 67 back in numeric form. 

One of the desired enhancements to the original 3. To fetch, increment by 1 and save back (perhaps ina 
Flowchart Program (51/00-8005/0) was the addition of string of counters, where it is assumed that P=9 
page numbers to the Program’s branch table. This would because you want the 9th counter in the string; B$ isa 
serve as an aid to quick indexing into the flowchart. The string of 1 byte counters and A$ is a | byte string): 
original program used alpha page numbers; this limited A$=SEG(B$,P,1) to extract the counter byte at 
the chart to 52 pages before a program error would occur. location P; A=ASC(A$) to convert the counter to 
(Some programs exceed that amount.) The technique that decimal; A$=CHR(At1) to increment the counter and 
is described here is a little slower than equivalent numeric convert back to ASCII/ Binary; B$=REP(A$,P,1) to 
methods, but really saves memory and overcomes the 52 save the updated counter back in the counter string. 
page limit. 


Of course you can count to 127 in 1 byte since the 4051 
thinks it’s dealing with an ASCII character, but the 
technique is appropriate for many applications. 


A one-character field was already being used for from/to 
page references (corresponding to the from/to entries in 
the branch table). The aim was to get the Flowchart 
Program to run ina 16K 4051, so limiting the field to one 
character was important. The problem at hand was this: 
how can you count beyond nine in one byte? 


If 127 isn’t great enough, the technique can be expanded 
to count larger values or store larger values. This will still 


save considerable memory over string or numeric techni- 


The solution is to treat the character as an ASCII/ Binary ques. The technique is as follows: 


field. This allows a count to 127, which would be plenty 


for a page number value. The technique that is used to 1. Use two bytes per counter where the right hand byte 
make that one-byte field a binary value is described in the will represent a value from 0-127 and the left hana 
following. (Note that the same technique can be used asa byte will represent multiples of 128; the sum of the two 
binary counter.) (after multiplying the left hand byte by 128) will yield 
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your number. (Assume C$ is a | byte string, P points 
to the counter number of field number desired, say 9, 
and B$ contains the counters as before.) 


1 A$=SEG (B$,P*2-1,1) to get the left hand byte of 
the counter 

2 C$=SEG(B$,P*2,1) to get the right hand byte of 
the counter 

3 A=ASC(A$) to convert the ”128’s” to decimal 

4 C=ASC(C$) to convert the “units” to decimal 

5 IF Cis less than 127 THEN 10 to see if I can add to 
C 

6 C$=CHR(0) I can’t, it’s at maximum so set to zero 
7 A$=CHR(A+1) and add one to the ”128’s” position 
and convert — 

8 A$=REP(B$,P*2-1,1) to save the ”128’s” back in 
B$ 

9 GO TO 11 to skip the next statement 

10 C$=CHR(C+1) to add 1 to the ”units” position 
and convert 

11 C$=REP(B$,P*2,1) to save the units counter. 


Effectively, we’ve created a base 128 numbering system so 
that you can count to 16K-1 (16383 or 16256+127) in 2 
bytes instead of 5 using strings or 8 using numeric 
variables. (A 3 byte setup would yield a total count of over 
2,000,000.) 


It is a slower technique than straight numeric, but if you 
have critical memory situations this technique may be 
important to you. 


eee ee 
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Branching Techniques 


by J. L. Aubel 
University of South Florida 


Branching on Yes-No 


Here’s another simple method for branching ona Yes-No 
response. (Other methods were published in TEKniques 
Vol. 1 No. 8.) 


1090 DIM C$<1> 


488 PRI "Do you wish to continue "$ 
410 INP C$ 
420 GO TO (C$="Y")+1 OF 300,600 


500 REM No Processing 


E00 REM Yes Processing 


Branching for Output 


A variation of the above method works nicely for 
assigning output to the screen or the plotter. (Assume that 
the plotter is set to Device Address 1.) Use the following 
method: 


Pre PRINT "Output to screen or plotter? (Enter $ or P) "$ 
420 N=32-312(CSa"P*> 


4590 PRI @N: ... 


nn 
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Intro to Graphic Manual Valuable 
by Ken Cramer 


Look through the Introduction to Graphic Programming 
in BASIC manual (070-2059-00) supplied with your 4051. 
If you are a typical programmer, you probably skip over 
“introductczy” manuals and go right to the reference 
manuals. In the case of the Graphic Programming 
manual, you could be missing a lot of helpful hints. 
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Sections three through eight have many examples and 
explanations that can give you valuable insight and a 
starting point for algorithms you need. Just knowing 
where to look things up can save many hours of 
programming effort. Take an hour to look through these 
sections; it’s worth it. 
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Speeding Up Trigonometric 
Functions 


by Herman D’Hondt 
Tektronix Australia 


Speed can be improved appreciably in situations where 
sines and cosines must be repeatedly computed in a 
FOR/ NEXT loop. This can be accomplished using the 
following well-known sum formulas: 


sin(a + b) = sin a cos b+ sin b cos a 
cos(a + b) = cos a cos b - sin a sin b 


Accuracy is slightly diminished using this method. 


Usual Method 


130 SET DEGREES 
110 FOR a, TO 360 STEP 2 


150 PRINT X,Y 
FUN 
6 1 


Speed Method 


180 SET DEGREES 

110 A=SINC2> 

120 B=C0S(2) 
Saed 


150 FOR I=1 z9 180 


NEXT I 
210 PRINT X,Y 


-4. 352074237E-13 0.999999999999 
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Deleting Parentheses to Save 
Memory 
by Aaron Eisenbach 


If you are running a program that was originally written 
for a Hewlett-Packard calculator (such as an H.P. 9821), 
you may be using more of your 4051 memory than you 
need to. The H.P. 9821, for instance, identifies simple 
variables as R(21), R(5), R(56), and so forth. The 
parentheses are not required for simple variables in the 


4051. You can save lots of memory by deleting the 
parentheses and using variables such as A-Z, A1-A9, B1- 
B9, etc. 


In one example, a 900-register program for an H.P. 
machine, one thousand bytes of memory were saved by 
deleting unnecessary parentheses. 
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Correct Tape Inserted? 


by Leslie Diane Sivak 
Florida Solar Energy Center 


Before MARKing a file (or files) on a tape cartridge, 
make sure that you have the correct tape cartridge in the 
4051. 


(The author of this bit speaks from experience. She says 
she didn’t check, destroyed someone else’s file, and was 
lucky to leave the computer room alive!—ed.) 
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RANDOM SNOWFLAKES generated from a program contributed by 
Mark Mehal, Tektronix Systems Analyst, Chicago. 


ee ee a ma ~ O CO Aa OIO e 


ATST] 
S2eoococoooe 


REM default device is the screen. 
130 


GO TO 
PEN seer definable key 1 will use the plotter. (unite#1> 
Ual 
U=130 
GO TO 170 
REN snowflake program 12/22/76 ‘almost christmas) an 
REM version 1.2 (random rotation and faster) 1/6/76 
PEN Mark Mehall Chicago Field Office 
PAGE 
na is the unit number (l=plotter, 32=screen). 
= 
Serie 1s the maximum viewport minus 20 (13@=splotter, 116=screen). 
Uz 
SET DEGREES 


HIHDON -20,20, -20,20 
L=10 

REM Ri is the number of flakes. (20 to 35) 
RI=RND(-1)426415 

FOR Q=1 TO R1 

REM X1,¥1 is the random location 
X1=RNDC-192U 

V1=RND¢(-1)286 

REM A ıs the rotation angle of the flake 
A=RND(-1)868 

ROTATE A 

UIEWPORT ~1,X14+20,Y1,71+20 

REM J ıs the number of "spikes". 
J=IHT RND -1)844+5) 

DIM X¥¢585-4), (585-4) 

DI=L7¢J-1) 

FEM H ıs the maximun length of a "spike". 
REM H=TAN(30>%.5%1/SIN(68>82 (if you care.) 
H=8. 66666678. 

FOR I=1 TO 58s STEP 5 

REM D2 is the cumulative distance from center, 
D2=D148<¢I-1)/5> 

REM M is the actual "spike" length. 


Me (H-HSABS(D2-L72)7(8.5%L) SRNO -1) 
REM move out a distance d 

ZID EDL 

Y¥C1>=@ 


IF 1>4%J THEN 616 

REM calculate x+y at 60 degree angle. 
XC1+1)=@, 53M 

Y: I+1)=0. 8666253m 

REM return to center line. 
4CI+2)s-X(1+1> 
YcI+2)=-Y<I+1> 

REM draw lower spike. 
XCI*3>#XC 141) 

YcI+3)=-Y< 1+1) 

REM return to center line. 
RES EZ EESE TE CTE) 

ae ty SEt da oe) 

NEXT I 

FOR R=@ TO 300 STEP 60 
POTATE Rt 

MOVE @U:6,0 


ö PDRAW èU:Y, y 


HEXT R 

FEN reset rotation angle to original. 
ROTATE A 

REM P is the number of concentric hexagons. 
R2=PHD(-1 té 

FOr J=1 TO R2 

FEN S ıs the size of the hexagon, 
S=*RND(-1>8J581.5 

MOVE @U:8,0 

RMOVE @U:S,6 

REM this loop draw a hexagon s units big. 
FOR I=@ TO 360 STEP 60 

ROTATE Atl 


RDRAW 0U:S%-8.5,530. 866025 
NEXT I 


WEXT J 
DELETE X,Y 
NEXT Q 
END 
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OUTPUT DEFAULT IS TO THE 4051 GRAPHIC SCREEN. 
TO PLOTTER, 


4313: SNOWFLAKES BY S. HANSEN LESSE S 
TO OUTPUT 


FRESS USER DEFINABLE KEY #1. 


STATEMEHTS 1890 TO 1990 CONTAIN THE CODE FOR PRINTING 


THE 


INGIUICUML NAMES “SIG AND GWEN’. 


SUGGESTED COPE TO SUBSTITUTE YOUR OWN LINE OF GREETING 


FOLLOWING 


MERRY CHRISTMAS’: 


CEL 1898,1998 
131 PRINT “ENTER LINE OF GREETING’ 
132 INPUT A$ 


X=65-LENCAS) 
y=47 

FOR 1=6 TO 8.3 STEP @.1 
PRINT @T,21:X+1, Y+] 
en eT:As 


ZIennwnw—— 
Manan 
N a se po po we 
HA hN 


REM SNOWFLAKE DESIGH 


REM AUTHOR - S. 


ð FOR 


HANSEH, LOS ANGELES, CA. 


T=32 

SET DEGREES 

WINDOW -34,34,-34,34 
PAGE 

FOR K=1 TO 6 

READ N,M 

DATA 8, 30,25,55, 65,55,90, 38,65,5525)5 
VIEMPORT N, N+40, M, M+40 
A=26 

B=RNC«-1°38.448.3 

1=@ TO 25 

C=0, 86682510 

D=0. 53A 

FOR J=1 To 6 

ROTATE 60%) 

MOVE @T:8,8 

RMOVE @7:6,1 


278 RMOVE @T:C,D 

228 RDRAW @T:-C,-D 

230 RDRAW @T:-C,D 

200 HEXT J 

210 A=RHD(-159¢25-1) 8B 

326 MEXT I 

336 HEXT K 

248 WINDOW 9. 130,0, 100 

358 DATA 9,8, -64, -64 

360 DATA -14.14,-6,-8,-7s-7s-8,-3,-8,-3,-10,-3,-11,-2,-11,;0 

370 DATA | Ale Saad i 7415-6458 

388 DATA -10,-2,-7,-2,-64,0,-6,-8, -6,0 -7,2,-8, 3, -64,0 
390 DATA -13,9,-11,7,-9,6,-716,-5,7,-4,7, -3,6 

400 DATA -64,0-10,7 -7,7-5,81 -64,0,-13,9,-11,8,-8,8 
418 DATA 361395 5,97-4,8, -3,6-64,0 -6 -8, ~2y “12 

420 DATA 2,5-8,25, 3, 7)4)75264,8)22)-i101 -8,1,6 

430 DATA D7, 118, 29701 161-64 180-29. 2,1 

440 DATA -64,8,-4,-18,-3,-18,8,- 730) 23) 235-381-644 8)-35-1 
50 DATA 8-106,- 1579159545795) 6) ~ 

sét DATA 2178. 64-12) 185- brio S 1112s 12s 7,-64,0,61-11 

85956511485 -645 8564-25 9, ~; 5 
-18,5,-16,8)- Sapp, @,5,-158)-1 

498 DATA 87 +10, 9, 12, 7,640, 3) -18,-3,6y -64,6 


64, -64 

=4, 63-67, -3;7,- 
~64,8,-25- 

s9,-64,0, 


-8,61-6,5 -3,-5,-3,-4, -2,1-4,61 -6,7 
ey ad a We tad ee el fad 2 
-4,-3,-2,-3, -2,6,0 
-25 -3,21 -3,3,-4,5, 
-4,2,- 3,4, -3,-64,0,0, -~ 
64 


-3 


172454 10945 139 2515) 8s 16-1915, -3,14 
645842) 4545-3545 10, -64,01,15 

624 Onta =13149-25 845-6400 89-Sehe—by 39293 854,11 

59D DUTA 4513, 64,85 2515p 1) 14) —1p 13) 3413, -55 

TOB DATA -64, -64 

710 DATA -8,8,-64, -64 

$28 DATA -13)115-4s-11)-61=18) 2B) ~By -93 ~61 18s ~3)-18y 15-944 
730 DATA -8565-558y-259) 149144 8y6575855 

748 DATA 9,364 0, -BrP "94-41-95 Ly -29 5p 45 70 2108 

250 DATA 2,85, 7,64, 8)-4)-11,~6529) 24 Pg- 

768 DATA 7810, -753,-446 15792)755s6577519r3 

578 DTA ~64)0,-2y By -25 4) -64,0,-1,-8,-1,2, -64,0 

768 DATA 0:9, 8s ir E 2ra EAr 2r 28106295 35-12 

TIR DATA 5,-11,7,-11,8,-12,-64,0,2,-11,4,-10,6,-10 

BAI DATA -64,0,1,-10,3,-9:5,-9,7,-10,8,-12,-64,0,5, -9 
£16 DATA 5,6, -64,-64 

520 DATA -9,9,-6,-10,-53, -85-316 -7,7,-617,-4,8, -3,9 

830 DATA -64,0,-4,-8,-5,-18,-4y-11 “45752281 6450 

248 DATA -6,~10,-3,-12, “3164-1175-319) -64,0 1-3-20, -3 
B58 LATA 25-4,3,-5,4, -4,6-37 313s 52,3, 

BEA DATA 3, 9,2,11,-64, 0,21-4,4,- 474309 64,0 
RENTENE AHEANEAEANTA NUEH 

ZB@ LATA 4,1612114, -64, -64 

890 DATA -5,5,0,-12,-2,-18,0,-9,2,-18,0,-12, ~64, 0,0, - 
960 DATA -1,-10,1,-10,0, -111-6400 -5,-1,-4,-3,-3 

218 DATA -1-21-112, 119 317,-64,0,0,-2, 11-318, -4 

920 DATA -1-30-2807 1,8-64,0, 0,-5,1,-4 

930 VATA 3-3,1 -2516s2,7, 3,7-64, -64 

940 DATA -8,B,-5,-3, -5,15-3,25 +25, 315475 -64,0 

95@ DATA -4,-3,-4,1,-64,0,4, 3545? ' 

260 DATA ~3)-3)-3)ly-1s2s reds Ooladraedede F208 

970 DATA -E4,0,-5,-3,-2, -458y - 5525-454 45-455) -5 
328 DATA ~6440s -15-45 1543-6458) -Brán 3420 ž3,4,-4 
993 DHT -64,0,5,7,2.8,0,9, -2,8-4,8 

1908 DATA - 40,1485 1,8; -64,052,8; 8471-3, 75-659 


re 
Lieto tee, 
iiao alse b 
1751-64585 1, -5,4,-5, 
1960 baTA -13,13,-11»-3,-10 -3s -9, 


=11,7,-10,7. -8.8 


1070 -3s -8,7 -6, 8, -64,0 
1089 -8,9-7 bs -64 0-72 
1099 


316371,9 
4,-3,-3,-3 
0,851, 95-6450, 15-2 
1-5 )85-4) 185-35 115-3, 94-25 996 
54;8)6)-4,8,-3)8) 7, 
8544-3) 55-35 24-21 7 74949p 1147) 645-64 
bata -8,9c22%0° 554, -5,6 r-219,0,? 
CATH 3.6. -64,0 -3,4, -64,0 
1) p742, -21-2 
DATA E ale 3:5,- errer 
Pe? Ara g1 =) “G41 02-3) 55-3 
LMTA 4,-4, 4,755, id hd ie 35-55-20 
DATA O,-353,-24.34 748 EAEE 8 
DATA -64,-64 
LATA ~2 48555-6565 -6y 7p -7 56) 4959-65 3p - 7p Oy -7 
-2)-6)-3)-59-35- BORRAR 
AAEE HEPER E R EE Y BS T HAS HA 
DATA -4,5,-3,3, -6761 -5,5,-4, Sy -64, -64 
Dula -5,5,1,-751,-6,2,-6,2,-7, 15-7, -64,0, -4,0 
DATA -3,-21-2,-3,0, -3s 19-2, 1) 050) 39855 
r6, -64,0 —1)~3485~2y By Oy “1p 35-1) 5p 846 
1613155453, 164) -64 
757) 45-3424 45 1475899) -64 8,5, -3,3,4 
eo We ae iT 37559, -45 1 
6450, 3; 153 35-3)-2)-4y-15-55 1 
-4,5,216,06 2545-64) 8)-1)-3 


JW Cu GE RI AOAN AA IN e oe et ee ee ee 
FEAR IVR OL O A N A WIE GLO IDNR UIN =D 
POOOSCSSOSCSOSSOOSGSOCHSOesooooosg 

o 

D 

= 

> 


-8,9,-7 Oi oOo T a 

6418) -4)-35 -35-2)~ Pleg 

1440 DATA -1,-2 MEER EI 5,0 

1450 aTa 264.8534 3,4) 221408 83, Da hea 
LEE I Bai 

PAEO 5961625271 +3 

165 35453, é 

E ES E 

586 DATA E arr aR RR 


G DATA E e LP iis 2 
26 545 Pe ele SE a oa 


& CATA -7,7 picts S nn 
D DATA -2 6023025; aod, bee 53,7443, -246 
@ DATA aea saaan earb o a2 S3 


1556 DATA ~4,0, 74; 41-2, RERA 3,1 


a -3s -4-21 -4,0, -5,3 

6s -31-51-21-50 -6,3 

£57014) -6420220-35 004 
’ 


8 ’ 25 
1630 DATA -3,-2,-4,-1,-5, 133-4, 5,-2,6» 
1648 DATA 2,5,3,4,-64,8,- 1-3,3, ha 4p by -43 49-256 
1650 DATA -64,-64 
1668 VIEWPORT 10,120.60, 47 
1678 A=-131 
1686 B=389 


27 


265 


RESTORE 350 
FOR I=i TO 4 
GOSUB 2828 
NEXT I 
RESTORE 560 
FOR I=1 TO 5 
GOSUB 2626 
MEXT I 
RESTORE 566 
GOSUB 2020 
RESTORE 898 
FOR I=1 TO 5 
GOSUB 2020 
NEXT I 
RESTORE 948 
GOSUB 2020 
VIEWPORT 30, 100,50, 40 
Aa=-175 
6=345 
RESTORE 1238 
FOR I=1 10 7 
GOSUB 2020 
NEXT I 
RESTORE 1360 
GOSUB 2026 
RESTORE 129 
FoR I=1 TO 3 
GOSUE 2028 
WEXT I 
RESTORE 1428 
GOSUE 2026 
HOME @T: 

GC TO 2206 
FED Cyd 
A=A+C 


A B=B+C 


HINCOH A,6,-38,36 

READ X,Y 

IF 4=-64 WHO Y=-64 THEN 2140 
MOVE @T:ix,Y 


AND Y=-64 THEN 2140 
IF aa -64 AND Y=@ THEN 2178 
DRAH @T:X,Y 

GO To 2090 

A=a-D 

B=8-0 

RETURN 

PEAD X, ¥ 

NOVE @T:%,Y 

GO TO 2658 

WINDOW @, 130,0, 100 
UIEHFORT 8. 130,0, 100 

SET DEGREES 

WINDOW -13,13,- 10 

FOR J=12.3' TO 13°8tr 0.05 
K=J- 

MOUE PT: JECOSCIS) KESINCIS) 
FOR I=45 TO 375 STEP 

Ke JSCOS< 1? 

Y=KESINGID 

DRAW èT:X,Y 

NEXT I 

HEYT J 

HOME èT: 

END 


REPRINTED FROM TEKNIQUES, VOL 1 NO 10 — 4050 SERIES APPLICATIONS LIBRARY NEWSLETTER 


PAPER, FOUR NEWSLETTERS, THREE BEARCAT PROGRAMS, 
TWO BLANK TAPES, AND A BRAND NEW 4051 

ON THE TENTH DAY OF CHRISTMAS TEKTRONX SENT TO 
ME, TEN WORKING JOYSTICKS, NNE DISC UNITS, EIGHT 
LUNE PRINTERS, SEVEN DIGITIZERS, SX DIGITAL 
PLOTTERS, FIVE ROLLS OF PAPER, FOUR NEWSLETTERS, 
‘THREE BEARCAT PROGRAMS, TWO BLANK TAPES, AND A 
BRAND NEW 4051. 

ON THE ELEVENTH DAY OF CHRISTMAS TEKTRONK SENT TO 
ME, ELEVEN HARD COPY UNITS, TEN WORKING JOYSTICKS, 
NINE DISC UNTS, EIGHT LINE PRINTERS, SEVEN 
DIGITIZERS, SX DIGITAL PLOTTERS, FIVE ROLLS OF 
PAPER, FOUR NEWSLETTERS, THREE BEARCAT PROGRAMS, 
TWO BLANK TAPES, AND A BRAND NEW 405 

ON THE TWELFTH DAY OF CHRISTMAS TEKTRONK SENT TO 
ME, TWELVE CARTRIDGE TAPE UNTS, ELEVEN HARD 
(COPY UNITS, TEN WORKING JOYSTICKS, NPE OSC 
UNTS, EXGHT LINE PRINTERS, SEVEN DIGITIZERS, SX 
DIGITAL PLOTTERS, FIVE ROLLS OF PAPER, FOUR NEWS- 
LETTERS, THREE BEARCAT PROGRAMS, TWO BLANK TAPES, 
AND A BRAND NEW 4051. 


THE TWELVE DAYS OF CHRISTMAS 


ON THE FIRST DAY OF CHRISTMAS TEXTRONK SENT TO ME, A 
BRAND NEW 4051. 

ON THE SECOND DAY OF CHRISTMAS TEKTRONK SENT TO ME, 
TWO BLANK TAPES, AND A BRAND NEW 405) 

ON THE THIRD DAY OF CHRISTMAS TEXTRONK SENT TO ME, 
THREE BEARCAT PROGRAMS, TWO BLANK TAPES, AND A 
BRAND NEW 405! 

ON THE FOURTH DAY OF CHRISTMAS TEKTRONK SENT TO ME, 
FOUR NEWSLETTERS, THREE BEARCAT PROGRAMS, TWO BLANK 
TAPES, AND A BRAND NEW 4051, 

ON THE FIFTH DAY UF CHRISTMAS TEXTRONX SENT TO ME, 
FIVE ROLLS OF PAPER, FOUR NEWSLETTERS, THREE BEAR- 
CAT PROGRAMS, TWO BLANK TAPES, AND A BRAND NEW 4051. 

ON THE SOCTH DAY OF CHRISTMAS TEXTRONX SENT TO ME, 

SX DIGITAL PLOTTERS, FIVE ROLLS OF PAPER, FOUR 
NEWSLETTERS, THREE BEARCAT PROGRAMS, TWO BLANK TAPES, 
AND A BRAND NEW 4051 

ON THE SEVENTH DAY OF CHRISTMAS TEKTRONX SENT TO ME, 
SEVEN DIGITIZERS, SX DIGITAL PLOTTERS, FIVE ROLLS 
OF PAPER, FOUR NEWSLETTERS, THREE BEARCAT PROGRAMS, 
TWO BLANK TAPES, AND A BRAND NEW 4051. 

ON THE EIGHTH DAY OF CHRISTMAS TEKTRONK SENT TO ME, 
EIGHT LINE PRINTERS, SEVEN DIGITIZERS, SX DIGITAL 
PLOTTERS, FIVE ROLLS OF PAPER, FOUR NEWSLETTERS, 
THREE BEARCAT PROGRAMS, TWO BLANK TAPES AND A BRAND 
NEW 4051. 

ON THE NNTH DAY OF CHRISTMAS TEKTRONX SENT TO ME, 

NINE DISC UNITS, EIGHT LINE PRINTERS, SEVEN 
OIGITIZERS, SX DIGITAL PLOTTERS, FIVE ROLLS OF 


FROM OUR COMPUTER 
TO YOURS 


A 
WE LIFT OUR CIRCUITS 
IN SONG 


CHRISTMAS CARD plotted from the program of Dr. P.C. Holman 
and his staff of the University of Wisconsin-Stevens Point. 4051 
Applications Library program #51/00-8012/0 (Leroy Character 
Generator) was incorporated as a subroutine to generate the text. 


ENI 
95 REN CHRISTMAS CARD 


Te T BUTHOR! OR. P.C. HOLMAN, U OF WISCONSIN, STEVENS POINT 


Ua? 
UTEHPORT 8, 130,87,100 
SCALE 4,4 

LET Tani 

LET Iis@ 

198 REM 

MOVE @T:8,18 

DRAW @T:0,50 

DRAW @T: 268,50 

DRAW @T: He 

DRAW @T:8 

FOR 128 To. 360 STEP 268/52 

LET Iisliel 

IF 1123 OR I1=6 OR I1=10 OR 11=13 OR 11817 OR 11=20 OR 11=24 THE 418 
IF I1*27 OR 11=31 OR 11=34 OR 11=38 OR Ii=41 OR I1=45 THEN 418 

IF [i=48 OR I1=52 THEN 410 

MOVE @T:1,25 

DRAW @T:1,18 

MOVE @T: 1,52 

IF 1191 oR 11=53 THEN 400 
LET UsU+1 

IF U<>10 THEN 380 

LET U=@ 

LET UisUi+1 

REM 


RMOVE @T:0,6 
GO TO 448 
REM 


MOVE @T:1,50 

DRAH @T:1,18 

NEXT I 

LET 18=268/52 

FOR I=I8-2.5 TO 300 STEP ABS<I8) 

IF 142 OR 1485 OR I4"9 OR [4212 OR 14216 OR 14=19 OR 14=23 THEN 600 
IF 14=26 OR 14838 OR 14=33 OR 14837 OR 14=48 OR 14=44 THEN 600 
IF 14=4? OR 14=51 OR 14=52 THEN 600 

IF 14>52 THEN 660 

MOVE @T:1+1,50 

DRAW @T: 141,25 

DRAW @T: 144,25 


MOVE @T:1,13 
FOR L=1 TO 5 
FOR I=1 TO 10 


LET Tis! 
ie SECOND FILE STARTS HERE $ 


T=1 
REM 
LET awi15 
cer B1223 


HINDOW @ 7628,0, 5688 
MOVE @T:50,6 
GOSUB 1030" 

PRINT @T,21:35,95 
PRINT @T,21:28,56 
PRINT @T,21:28,4? 
PRINT @T, 21: 35,38 


PRINT @T,21:35,33 
PRINT @T,21:35,28 
IF T=32_ THEN 886 
PRINT @T,21:90,1 
PRINT @T,21: 158,108 


28 


886 PRINT @T,21: 188, 2' 


s 
890 PRINT @T: "FROM OUR COMPUTER" 


9900 PRINT @T,21:108,21 
910 PRINT @T:"TO YOURS" 
920 LET A=115 

938 LET Bi=2 

958 WINDOW 6, 7648,0,56%B 
960 MOVE @T:58,65 

978 GOSUB 1030 

990 PRINT @T,21:94,4 

938 
18000 PRINT @T,21:185 
1010 PRINT @T:"IN SONG” 
1011 FOR IS=i TO 1000 
1612 NEXT I5 

1013 HOME @T: 


1840 SCALE 
1050 RMOVE 
1868 RMOVE 
1878 RDRAW 


Veusun 
een © 
NNa a 
aa 


ma pa pa pea pea a a Da 
a mea pa pet mt pet pet ee pt 


Io twee eee AN st 
Giat | aago: 


2 eeo ome 
ao 


1200 RORAW 
1210 RDRAH 
1220 RDRAW 
1230 RDRAW 
1240 RMOVE 
1250 RNOVE 
1260 RMOVE 
1270 RMOVE 
1280 RDRAW 
1298 RMOVE 
1300 RORAW @ 
1310 RORAW 
1320 RORAW 
1330 RMOVE 
1348 RORAW 
1350 RMOVE 
1360 RDRAW 
1378 RDRAW 
1380 RORAW 
1398 RDRAW 
1408 RDRAW 
1418 RDRAW 
1420 RMOVE 
1430 RDRAW 
1448 RDRAW 
1438 RDRAW 
1468 RORAW 
1478 RMOVE 
1488 RDRAW 
1498 RDRAW 
1500 RDRAW 
1518 RDRAW 
1528 RMOVE 
1530 RORAW 
1548 RORAW 
1550 RDRAW 
1560 RDRAW 
1570 RDRAW 
13580 RDRAW 
1590 RORAW 
1688 RDRAW 
1610 RMOVE 
1628 RORAW 
1630 RDRAW 
1648 RDRAW 
1658 RDRAW 
1660 RMOUVE 
1678 RDRAW 
1688 RDRAW : 


PYANNUO- UF AAO * AOUSUD 


MANo aoo o o 
-= muU ~ Uam i NNO 


ai 
pes 


ene: 


Dms eOe 


NN Ie 


OnNmUuU~ Onur 


1748 RORAW @ 
1750 RDRAW 
1768 RMOVE 
1778 RORAW 
1786 RDRAW 
1798 RDRAW 
1888 RDRAW 
1810 RMOVE 
1820 RDRAW 
1830 RDRAW 


1860 RNOVE 
1870 RDRAW 
1880 RDRAW @ 


1918 RORAW 
1920 RDRAH 
1930 RDRAH è 
1948 RORAW eT: 
1950 RETURN 
1968 REM 

1978 GOSUB 2726 
1988 A=0 
1998 Ci=31 
2009 MOVE @T 
2618 PRINT è 
2825 29=8 
2030 FOR I=1 TO Ci 

2040 READ C$ 

2050 IF Ci<>21 THEN 2878 
2060 PRINT @T:* 


8.25; 
-8.75,7.25 


2865 REMSSSIF Z9=0 THEN 2078 


2066 REM $8% PRINT èT: 
2878 LET $=1.35 


PRINT @T: “WE „LIET our CIRCUITS" 


2080 GOSUB 284! 

2085 IF pate Phen 2100 

2098 pebi 

2100 NEXT id 

2101 Z9=1 

2110 IF Ci#21 THEN 2158 

2128 HOME @T: 

2130 LET Ci=21 

2148 GO TO 2038 

2150 END 

2168 REN 

2170 REM 

2188 REM 

2198 DATA * THE TWELVE DAYS OF CHRISTMAS” 

22008 DATA * * 

2210 DATA “ON THE FIRST pay OF CHRISTMAS TEKTRONIX SENT TO ME, A" 
2220 DATA * BRAND NEW 

2230 DATA "ON THE SECOND DAY OF CHRISTMAS TEKTRONIX SENT TO ME,” 
2240 DATA * THO BLANK TAPES, AND A BRAND HEH 4051. 

2250 DATA "ON THE THIRD DAY OF CHRISTMAS TEKTRONIX SENT TO ME,” 
2268 DATA * THREE BEARCAT PROGRANS, TWO BLANK TAPES; AND A * 
2265 DATA * BRAND NEW 4851. 

2270 DATA “ON THE FOURTH DAY OF CHRISTMAS TEKTRONIX SENT TO ME," 
2288 DATA " FOUR WENRLE TIERS THREE BE ARCAT PROGRAMS, THO BLANK” 
2298 DATA * TAPES, AND A BRAND 4051. 

230@ DATA “ON THE FIFTH DAY oor CHRISTHAS TEKTEONIN SENT TO ME,” 
2310 DATA FIVE ROLLS OF PAPER, FOUR NEWSLETTERS, THREE BEAR-* 
2328 DATA * CAT PROGRAMS, THO BLANK TAPES, AND A BRAND NEW 4051. = 
2338 DATA “ON THE SIXTH DAY OF CHRISTMAS TEKTRONIX SENT TO ME, 
2340 DATA $1X DIGITAL PLOTTERS, FIVE ROLLS OF PAPER, FOUR" 
2358 DATA * pe a THREE BEARCAT PROGRANS, THO BLANK TAPES," 
2360 DATA " AND A BRAND NEW 4051. 

2370 DATA "ON THE SeUENTH DAY OF CHRISTMAS TEKTRONIX SENT TO ME," 
2380 DATA * SEVER DIGITIZERS, SIX DIGITAL PLOTTERS, FIVE ROLLS" 
2390 DATA ” OF PAPER, FOUR NEWSLETTERS, THREE BEARCAT PROGRAMS,” 
2400 DATA * THO BLANK TAPES, AND A BRAND NEW 4051." 

2410 DATA “ON THE EIGHTH DAY OF CHRISTMAS TEKTRONIX SENT TO ME,” 
2420 DATA " EIGHT LINE PRINTERS, SEVEN DIGITIZERS, SIX DIGITAL" 
2430 DATA * PLOTTERS, FIVE ROL F PAPER, FOUR NEWSLETTERS 
2448 DATA * canes eeeneny PROGRAMS, THO BLANK TAPES AND A Skano” 
2445 DATA * NEW 


2450 DATA “On THE NINTH DAY OF CHRISTMAS TEKTRONIX SENT TO MED” 
2468 DATA ” NINE DISC UNITS, EIGHT LINE PRINTERS, a toe 

2478 DATA “ DIGITIZERS, SIX Aetiat.: PLOTTERS, FIVE ROLLS OF" 
2480 DATA ” PAPER, FOUR NEWSLETTERS, THREE SEBRCHT, „PROGRAMS, * 
2498 DATA * THO BLANK TAPES, AND A BRAND HEW 485 

2508 DATA “ON THE TENTH DAY OF CHRISTMAS TEKTRONIX SENT TO " 
2510 DATA * TEN WORKING JOYSTICKS, NINE DISC e MITS, pun 
2528 DATA “ LINE PRINTERS, SEVEN DIGITIZERS, SIX DIGITA 

2530 DATA ” PLOTTERS, FIVE ROLLS OF PAPER, FOUR NEWSLETTERS, 
2540 DATA “ THREE BEARCAT eens TWO BLANK TAPES, AND A 

2245 DATA “ BRAND NEW 405 

2556 DATA “ON THE ELEVENTH Day OF CHRISTMAS TEKTRONIX SENT TO" 
2560 DATA * ME, ELEVEN HARD COPY UNITS, TEN WORKING JOYSTICKS," 
2578 DATA * NINE DISC UNITS, EIGHT LINE PRINTERS, SEVEN" 

2588 DATA * ODIGITIZERS, SIX DIGITAL PLOTTERS, FIVE ROLLS OF" 
2598 DATA “ PAPER, FOUR NEWSLETTERS, THREE BEARCAT „PROGRAMS, " 
2596 DATA “ THO BLANK TAPES, AND A BRAND NEW 4051, 

2600 DATA "ON THE TWELFTH DAY OF CHRISTMAS TEKTRONIX SENT TO” 
2618 DATA * ME, TWELVE CARTRIDGE TAPE UNITS, ELEVEN HARD" 
2628 DATA “ COPY UNITS, TEN WORKING JOYSTICKS, NINE DISC“ 
2630 DATA " UNITS, EIGHT LINE PRINTERS, SEVEN DIGITIZERS, SIx* 
2640 DATA * DIGITAL PLOTTERS, FIVE ROLLS OF PAPER, FOUR NEWS-" 


LETTERS, THREE BEARCAT PROGRAMS, THO BLANK TAPES,“ 
2655 DATA " AND A BRAND NEW 4851, 

2 REM THIS ROUTINE INITIALIZES THE peers USE BY THE 

REM CHARACTER GENERATOR. IT SHOULD BE EXECUTED (ONCE> BEFORE 
REM THE CHARACTER GENERATOR IS Usko. (i.e. GOSUB 9000) 


EDITOR’S NOTE: STATEMENTS 2750 THRU 479@ ENCOMPASS 4051 APPLICATIONS 
LIBRARY PROGRAM 51700-801270, “LEROY CHARACTER GENERATOR." 


REPRINTED FROM TEKNIQUES, VOL 1 NO 10 — 4050 SERIES APPLICATIONS LIBRARY NEWSLETTER 
M A SS ES I ES IL SEE 


Speed and Memory Savings 
Suggestions 


by Han Klinkspoor, Tektronix Datatek 
Badhoevedorp, The Netherlands 


Speeding Up Proceedings 


*Take non-relevant statements out of loops. For exam- 
ple, consider the following listing: 


100 For I=1 to 10 
110 Print Using 120:1 
120 Image .... 

130 Rem 

140 Next I 


This loop can be speeded up by moving lines 120 and 130 
outside the loop. (Overhead is .5 msec/ line + processing 
time.) 


*Minimize Jumps 

*Use Subroutines 

* Avoid recalculation of the same variable 

*Avoid unnecessary numeric computations. For exam- 
ple: 


110 Print 5*10, I should be 110 Print 50, I 


Recover Your Memory 


Delete data statements when they are no longer needed. 
For example: 


138 DATA 
168 DATA 
17@ DATA 


18@ DATA 
198 READ A,B, C$,F 
208 DELETE 158,208 


Save Your Memory 


When you need a Waiting Loop, instead of using a 
FOR/ NEXT LOOP such as 


FOR I=1 TO 1000 
NEXT I 


try using the following: 
PRINT USING "128¢"""">S*: 


When you need a Horizontal Line, instead of using a 
FOR/NEXT loop such as 


10800 FOR I=1 TO 72 
10010 PRINT “_"3 
10020 NEXT I 


try using the following: 
188000 PRINT USING "72¢""_ 


wayne 


This method not only saves memory, but is faster as well. 


Tekniques 
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4907: Segmented Data Base Provides 


Fast Graphics Access 
By Les Brabetz 


ENTER R TO RESTART, E TO END, OR SELECT LOWER LEFT CORNER AND ENTER Z 
SELECT UPPER RIGHT CORNER AND ENTER 2 
ENTER G TO GO OR A TO REDEFINE AREA see 


-ENTER R TO RESTART, E TO END, OR SELECT LOWER LEFT CORNER AND ENTER Z 
SELECT UPPER RIGHT CORNER AND ENTER 2 
ENTER G TO GO OR A TO REDEFINE AREA 


30 


The article on segmented data bases in the previous issue 
of TEKniques (Vol 1 No. 10), described the use of a 
segmented graphics data base. The techniques discussed 
permit rapid display of portions of the data base rather 
than displaying the entire data base to view a smaller 
portion. Only those files (or segments of the data base) 
that are required to complete the display are read into 
memory and displayed on the screen. The ability of the 
4907 FILE MANAGER to randomly access files allows 
the effective use of this data base technique. A file is 
created for each segment of a coordinate grid that 
overlays the entire data base. A rectangular grid was 
defined which varied in segment size to provide a 
reasonably equal density of vectors per segment. The 
segments generated with this grid defined some empty 
files, but was a much better distribution of vectors than a 
uniform grid. 


This article describes construction of the segment files 
from the master data base file. Once the grid coordinates 
are defined, there are two possible ways of building the 
segment files. The first method is to digitize a portion of 
the data base into each segment file. Any vector which 
crosses the segment boundaries must end exactly on the 
boundary, and must end at the correct angle to intercept 
the vector approaching from the adjacent segment; this is 
quite difficult. The main requirement of the segmented 
data base is to provide vector continuity across segment 
boundaries. The second method, which was used to build 
the demonstration data base of the U.S. Map, is to takea 
large data base and select vectors to transfer to separate 
files. The problem of boundary vector continuity is 
overcome by calculating an intercept point on the 
boundary, and adding this point to the segment file. 


Fig. 1. Default map of the United States with area selected for 
“zooming” (heavy rectangle). 


Fig. 2. Map segment selected in Fig. 1 as displayed from segmented 
data base. Second "zoom" requested of Lake Michigan (heavy 
rectangle). 


Fig. 3. Lake Michigan area as requested in Fig. 2 and displayed from 
segmented data base. 


The original data base of the U.S. Map consists of 
approximately 3000 X-Y coordinate pairs. Building a 
segment file requires examining each point and deter- 
mining which one of the following four conditions fits 
that point: 


1. The new point and the last point are within the 
defined area. 


2. The new point and the last point are outside the 
defined area. 


3. The point is entering or exiting the area relative to 
the last point. 


4. The last point was outside and the new point is 
outside, but the vector drawn between the points 
passes through the segment area. 


Conditions one and two are the simplest case as the point 
is either stored in the segment file or discarded. Condition 
three requires the slope and direction of the vector to be 
calculated. Once these are known, the boundary intercept 
point may be determined. Condition four is the most 
elaborate solution as it requires determining the points of 
boundary intersection for both entrance and exit. 


A rectangular definition of the segment was chosen to 
ease the calculation of the boundary intercept point. Once 
direction and slope of the vector is determined, one 
boundary coordinate is calculated and stored. 


Determining the Boundary Intersection 


Refer to the example in Fig. 4. Point P2 exceeds Y3, the 
maximum value of the Y range of the segment definition. 
A set of coordinate axes are placed on the point P1 and 
the quadrant of operation determined by the point 
relationship of P 1 and P2. For this example, quadrant 1 is 
defined. The slope of the vector connecting P1 and P2 is 
used to determine which boundary will be intercepted. 


If the slope of the vector connecting P1 and P2 is greater 
than the slope of the vector connecting P1 and P4, Y3 is 
used for a known boundary value. If the P1 to P2 slope 
were less than the P1 to P4 slope, then X4 would be used 
for the boundary calculation. X3 is calculated from the 
slope and the Y3 intercept value: 


X3 


slope * distance + origin 
((Y2 - Y1)/(X2-X1) * (Y3 - Y1)) + XI 


The boundary point P3 is added to the array and output 
to the segment file. Once the slope of the vector is 
determined and the boundary value known, the intercept 
coorinates are easily determined. 


The coordinate pairs are read from the master data base 
file in the form of an array, and are output to the segment 
file in the same fashion. The output array is stored in 
memory until the segment boundary is crossed or until 
reading of the input array has been completed. If the entry 
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array of vectors is outside of the defined area, no transfer 
occurs between the input and output files. The coordinate 
transfer begins when a point is inside the area and ends 
when the array point crosses the boundary. 


After the first attempts were made at using this file 
transfer technique, two enhancements were formulated. 
The first was to generate four quadrant files from the 
main data base and then to use them for the segment file 
creation. This reduced the amount of time to create the 
segments by reducing the amount of data to scan and test 
against the segment area. The second enhancement was to 


/ P2 (X2,Y2) 
/ 
/ 


/ P3 (x3, Y3) 


P4 (€X4,Y4) 


PL ext, yt 


Fig. 4. Example of boundary intercept calculation for condition 3, 
vector exiting boundary area. 


attempt an equal distribution of vectors among many 
small segments. Careful definition of the grid for the 
segments is important in both creation time and display 
time. 


Approximately four hours were required to generate the 
segmented data base. No operator intervention is re- 
quired as input files are selected and output files defined 
by the segment definition program. Once created, 
segments can be chosen and displayed in seconds. The 
program used for windowing will be documented and 
placed in the 4051 Applications Library. 


The next article regarding the segmented data base will 
describe the selection of the segment files for building 
displays. 
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Packing Two Integers Into 
One 4051 Word 


There are times when it is necessary to keep two pieces of 
numeric information associated. This is usually done by 
using two arrays and keying on the index to the 
relationship. An alternative is to combine the two integers 
into one word and subsequently into one array. The net 
result of the alternative method is a savings of ap- 
proximately 50% on memory usage. 


The following technique is used to combine the numeric 
information into one array. 


Assume that you are using a string named N$ to hold 
employee names of varying lengths. There are N8 
employee names in N$. Each employee has been 
assigned a number which is three digits and the 
numbers range from 000 to 999. 


Therefore, an array (N7) is set up to hold numbers that 
contain both the employee number and an index into 
N$ showing where the employee’s name begins. The 
format is: 


N7(I)=XXX.YYY 


where XXX is the index into N$ and YYY is the 
employee number. 


F3=1 

5310 PRINT "Enter number of employee names "} 
520 INPUT NB 

PRINT "Enter average length of names a | 
INPUT M 

DIM N$(M$N8) 

N$="" 

DIM N7(N841> 

FOR I=1 TO N8 

PRINT "JENTER EMPLOYEE NAME: "4 

INPUT A$ 


N$=REP (A$, F3, 0>) 

PRINT "JENTER EMPLOYEE NUMBER: “4 
INPUT N?7¢T> 

REM SHIFT EMPLOYEE # AND ADD IN INDEX 
N2CT)=N7(1)71880+F3 

REM UPDATE INDEX POINTER 

678 F3=F3+LENCAS) 

688 NEXT I 

REM DO LAST INDEX 

N7CN841)=F3 

RETURN 
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SPACE Function 


The SPAce function returns the maximum number of 
bytes required to store a current program in external 
ASCII format. However, the BASIC interpreter arrives 
at this number by multiplying the number of program 
lines by 72. Many programs use considerably less than 72 
characters per line resulting in excess tape space reserved. 


Finding the employee name: 
N is the desired employee number. 


REN RETRIEVE EMPLOYEE NAME FROM NS 
REM BREAK OUT THE INDEX 
z Ce EMPLOYEE NUMBER YOU WISH "4 


FOR I=1 TO NG 

FIs INTCN?7(1)> 

REM BREAK OUT EMPLOYEE @ 

REM NOTE ROUND-OFF COMPENSATION 
FO=INTCCN7(I)-F145. OE-5)*1008) 
IF F2<>W THEN 1188 

REH FIND INDEX OF NEXT NAME 
F3=INTCN?CI41>> 

REM FIND LENGTH OF NAME 
F3=F3-Fi 

40 REM HOW EXTRACT NAME 

@ A$=SEG(N$,F1,F3> 

@ REM PRINT IT 
@ 


OOND 


A few points to consider: 


I. Be sure that there are N8 + 1 members in the array 
N7. The extra entry shows the beginning position 
for the next name to be placed in N$. In addition, 
this entry must be used to determine the length of 
the last name in N$. 

2. When the data is to be saved on tape, use the 
following technique: 

FIND T 


WRITE@33:NS,M,N7 
WRITE@33:NS 


where T is the data file you plan to use. 


3. To retrieve the data: 


FIND T 

READEZI: NG, M 

DIM N7(N84+1>.NSC NEN 
READ@33:N7 
READ@33: N$ 


4. The techniques used in 2 and 3 above will allow 
your programs to be independent of the addition of 
names into the employee list. 

5. Given an employee number in J and a starting 
point for the employee name in N$ as the variable 
K, N7(I) is calculated as follows: 


N7(I) = K + J/ 1000 


An alternative is to divide the maximum bytes returned 
for a more realistic MARking: 


FINd n 
MARK 1, SPA/2 


Refer to the SPACE function under the MEMORY 


MANAGEMENT section in your 4051 Graphic System 
Reference Manual for further information. 


32 


REPRINTED FROM TEKNIQUES, VOL 2 NO 1 — 4050 SERIES APPLICATIONS LIBRARY NEWSLETTER 


Dashed Line Algorithm 
by Ken Cramer 


The following dashed line algorithm is an enhanced 
version of the algorithm in the “Introduction to Graphic 
Programming in BASIC” manual, page 7-13. The follow- 
ing algorithm is 29 lines (versus 43) and runs in 70% of the 
time. The major change from the original is a restruc- 
turing of the drawing loop to minimize repetitive com- 
putations and logical comparisons. V1, V2, V3, and V4 
are the viewpoint parameters; W1, W2, W3, and W4 are 
window parameters from the main program. D9 is the 
output device (32 for screen); X1, Y1 is the start point of 
the line; X2, Y2 is the end point. 


1000 REN 

1010 MOVE @D9:x 
1020 REM Si 1S HUMBER OF HORZOHTAL USER DATA UNITS PER GDU 

1030 Si#(W2-W1)/(U2-UL> 

1040 REM S2 1S NUMBER Md VERTICAL USER DATA UNITS PER GDU 

1850 S2=(W4-W3)7(U4-U3 

1060 REM FIND HORIZONTAL DISTANCE IN GDU’S 

1070 D1=¢(X2-xX1)7S1 

1080 REM FIND VERTICAL DISTANCE IN GDU’S 

1898 02*<Y2-Y1>/S2 

1100 REM D IS DISTANCE BETWEEN POINTS IN GDU‘S 

10 D#SQR(DIt2+D2t2) 

H REM DESIRED DASH LENGTH IN GDU’S IS L--COULD BE SET IN MAIN PROG 


@ 

Lal 
@ IF ABS(D2)<L AND ABS(D1><L_ THEN 1268 
© REN FIND HORIZONTAL COMPONENT OF DASH IN USER UNITS 
@ UieL#(D17D0>4S1 
@ REM FIND VERTICAL COMPOHENT OF DASH IN USER UNITS 
H U2=L4#(D27D)kS2 
8 
8 
8 


poenee LINE SUBROUTINE 


REM MAX FUNTION USED FOR NEAR VERTICAL OR HORIZONTAL LINES 
FOR I=@ TO X2-X1-U12 MAX Y2-Y1-U2#2 STEP 2%(U1 MAX U2) 
RDRAW @09:U1,U2 

RNOVE @D9;U1,U2 

1230 NEXT I 

124@ REM ORAW TO END ACTUAL END POINT TO BEGIN NEXT LINE 

1250 pray barker Y2 


1270 Yis¥2 
1280 RETURN 


NK Boomavnusun 


The following expansion of the above algorithm gives five 
line styles depending on the value of L1 supplied by the 
main program. Different styles and drawing speeds can be 
attained by changing the variable L in line 1130. 


1800 REM MULTIPLE DASH PATTERN--DASHED LINE SUBROUTINE 
1010 MOVE @D9:X1,Y1 

1020 REM Si IS NUMBER OF HORZONTAL USER DATA UNITS PER GDU 
1030 Si=(W2-W1>7CU2-U1 

1648 REM S2 IS NUMBER oF VERTICAL USER DATA UNITS PER GDU 
1050 S2=(W4-W3)7¢(U4-U3> 

166@ REM FIND HORIZONTAL DISTANCE IN GDU’S 

1878 Di=(X2-X1)7S1 

1086 REM FIND VERTICAL DISTANCE IN GDU‘S 

1898 D2=(Y2-Y1)7$2 

1100 REM D IS DISTANCE BETWEEN POINTS IN GDU’S 

1118 D=SQR(D1t2+D2T2> 


1120 REM DESIRED DASH LENGTH IN GDU‘S IS L--COULD BE SET IN MAIN PROG 
1136 L=1 

1148 IF ABS(D2><L AND ABS(D1><L_ THEN 1600 

1150 REM FIND HORIZONTAL COMPONENT OF DASH IN USER UNITS 

1160 Ul=Ls(017D>8S1 

1170 REM FIND MIN COMPONENT OF DASH IN USER UNITS 

1180 U2=L$(02/0)$52 

1198 U3=28U1 

1208 U4=28U2 

12 


10 REM Li IS THE VARIABLE FOR SELECTING THE DASH PATTERN 

1220 GO TO Li OF 1260.1320, 1370.1440, 15290,1590 

1238 GO TO 1598 

1240 REM MAX runt AOS USED FOR NEAR VERTICAL OR HORIZONTAL LINES 
125@ REN TANDARD DASHED LINE 

1260 FOR I=8 TO te X1-U182 MAX Y2-Y1-U282 STEP 29¢U1 MAX U2) 
1270 RDRAW @09:U1,U2 

1280 RMOVE @09:U1,U2 


NEXT I 
1300 GO TO 1598 
1318 REM DOTTED LINE 
1320 FOR I*@ TO X2-X1-UL MAX Y2-Y1-U2 STEP Ul MAX U2 
1330 RDRAH €D9:0,0 
1340 RMOVE @D9:U1,U2 


HEXT I 
1360 GO TO 1600 
1370 REM DOT-DASHED LINE 
1380 FOR 1=@ TO X2-X1-UL%3 MAX Y2-Y1-U2%3 STEP 3J#(U1 MAX U2) 
1398 RDRAW @09:U3,U4 
1488 ROOSE. POUPU 


NEX 
1420 GO TO 1600 
1430 REN LOHG DASHED LINE 
1440 FOR I=@ TO X2-xX1-U1#3 MAX Y2-Y1-U2#3 STEP 3(U1i MAX U2) 
1450 RORAW @D9:U1, U2 
1468 RMOVE @D9:U1,U2 
1478 RORAW @09:0,8 
1480 RMOVE @09:U1,U2 


600 

LONG/SHORT DASHED LINE 

1520 FOR I=@ TO X2-X1-U1853 MAX Y2-Y1-U285 STEP 5#(U1 MAX U2) 
1530 RDRAW @D9:U3,U4 

1540 RMOVE @D9:U1,U2 

1550 RDRAW @D9:U1,U2 

1560 RMOVE @09:U1,U2 


NEXT 1 
1590 REM DRAW TO END ACTUAL END POINT TO BEGIN NEXT LINE 
1598 DRAW @09:Xx2, Y2 
1600 X1=x2 
1610 yiav2 
1620 RETURN 
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4907: Graphic Displays from Segmented Data Base 


by Les Brabetz & Gary P. Laroff 


A segmented data base stores a large, highly detailed 
graphics display in the form of X-Y coordinate arrays. 
The storage format is the number of coordinate pairs in 
an array followed by the coordinate pairs. 


N, Xi, X2, sc Demin Nay Tiras Ya 


Initially, a data base exists. It is either computed and 
stored or digitized and stored. Such a data base consists of 
some number of arrays of DRAW commands. These 
could be continuous sections of a map. Islands off the 
coast would be separate arrays because a MOVE is 
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required to get across the water. A good example of a 
typical data base is the map of the United States discussed 
in the first article in this series (TEKniques Vol. | No. 10) 
and reproduced here as Fig. 1. The disadvantage of sucha 
typical data base is that it can only be accessed serially; 
that is, to see the information stored at the end of the data 
base, one needs to READ all of the earlier information. 


In order to access the graphic data quickly, the data base 
is segmented into a number of rectangular sections, each 
of which is stored on the 4907 disc as a separate file. The 


program that does this was discussed in the last issue of 
TEKniques (Vol. 2 No. 1). The trick is to compute and 
store all points where the map crosses one of the straight 
“segment boundaries.”. Any segment may now be called 
and the data read as quickly as any other. 


In summary, each segment or portion of the display 
consists of a file containing, in theory, an equal number of 
coordinate pairs. Actually the number of pairs in an array 
may vary widely. Display or vector generation from the 
array is performed by MOVing to the first coordinate pair 
and DRAwing through the remainder of the array. 
Creation of these segment files is performed by scanning 
the master data base and selecting those vectors that lie 
within the defined portion of the display. 


Once the segment files have been generated, a means of 
selecting and displaying the necessary files to build up a 
display is required. Each segment file is considered a 
separate entity, independent of the other files in the data 
base. These building blocks are selected and fit together to 
fill a defined area. The division of the map of the United 
States into 96 segments is shown in Fig. 2. 


So now that we know how to create a segmented data 
base, how do we pick the data segments? Being numerical 
data, the segments have X and Y coordinates associated 
with each corner. If we then number the segments, we will 
be able to write a program that will convert minimum and 
maximum values of X and Y into segment numbers. More 
precisely, if we DRAW a grid with coordinates over our 
master data display, we can then enter minimum and 
maximum values for X and Y (defining the lower left and 
upper right corners of the rectangular segment, respec- 
tively) and have our program look up all of the graphic 
segments that make up the rectangle. Our looked-up 
segments will usually form a slightly larger section of the 
data base than requested. 


Fig. 1. Master file of digitized map with arbitrary grid values. 


1067 


1280 


34 


Our program would then set the graphic WINDOW to 
the requested rectangle, READ the appropriate 
numbered segments and display them. Easier said than 
done? Not really. Let’s go a little deeper. 


Selecting the Display Area 


The 4907 FILE MANAGER demonstration program, 
which displays the U.S. Map graphics data base, uses the 
graphics cursor to select the area to display. First the 
master data base file of the entire map is displayed. The 
user is requested at this point to select a rectangular area 
of interest. The graphics cursor is enabled through the 
POINTER command and the 4952 Option 2 Joystick 
positions the cursor. When the user positions the graphics 
cursor to the lower left corner of the desired rectangle, a 
key is struck on the 4051 keyboard to indicate selection of 
the location. This returns the X-Y coordinate of the 
location (in user defined window units) and the character 
struck. This process is repeated for the upper right corner. 
The upper and lower limits of the X and Y ranges are now 
defined. This is only one method of selecting the area. 
These coordinates could be entered from the keyboard, 
defined by an operating program, or any other ap- 
propriate technique to define the numerical range of 
interest. 


Determining the Segments 


The previously defined X and Y coordinates which 
delineate all the segment boundaries now reside in two 
arrays within the 4051 memory. Selecting the segment 
files is performed by comparing the range of interest with 
the segment boundary values and choosing the segment 
boundary values which encompass the range of the 
desired display. Most of the time the segments to be 
displayed exceed the defined display area, and the 
internal clipping features of the 4051 display (WINDOW 
and VIEWPORT) are used to limit the vectors being 
displayed. 


Map data base illustrating segment division lines and 
numbering scheme for identification of segments. 


Fig. 2. 


938 1828 


97S 1865 1280 


A simple example will illustrate selection of actual 
segments. Each segment file is named to correspond with 
a location in the matrix in Fig. 3, e.g., SEG1 through 
SEG12. The data range to be displayed will be: 


Xmin = 150 Ymin = 50 
Xmax = 250 Ymax = 250 


Fig. 3. 


Example of segment numbering scheme and selec- 
tion of segments required for a display. 


The segment files are chosen from the data base in the 
following fashion. First the X range is determined by 
comparing the minimum value with the array values. X(2) 
is selected as the segment boundary which is less than or 
equal to the minimum. X(4) is selected as the maximum 
segment boundary by containing a value greater than or 
equal to the maximum value. Y(1) and Y(4) are selected in 
the same fashion. We now know the X range of segments 
to be 2 to 3 and the Y range as segments | through 3. 


Calling the Segments 


Segments are selected by a row and column method with 
the row determined by the Y segment range and the 
column by the X segment range. Since 4907 FILE 
MANAGER segment files are selected by name, rather 
than by number, string variables containing the segment 
numbers will be constructed. First we will generate a 
master string, A$, which will contain all of our required 
segment numbers. Segment numbers will be separated 
within A$ by a space. SEGMENT FILE NUMBER = 
(ROW - 1) * 4+ COLUMN. 


000 REM SEGMENT FILE SELECTION 
810 A$2"" 
020 FOR I=2 TO 3 


1898 END 


PRINT AS 
2618637 11 


When the above section of code is executed the string A$ 
contains the segment file numbers required to complete 
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the display. The string values are separated by spaces 
which are used as delimiters when selecting the individual 
files. For the demonstration data base “SEG” was 
prefixed to the segment numbers. Thus segment | is called 
"SEGI” and segment 12 is called "SEG12.” The files are 
selected by this process: 


2000 REM SEGMENT FILE SELECTION AND DISPLAY 
2018 Ci= 


2 
2020 AsS=ASE" " 
2030 C=POS(As," ",C1) 
2040 DS=SEG(AS,C1,C-C1> 
2050 D&="SEG"eD 
2060 CiaC+i 
2070 REM OPEN AND DISPLAY SEGMENT FILE 
2080 GOSUB 30 


0 
2098 IF Ci<LENCAS) THEN 2030 
sive REM END OF DISPLAY 


1@ END 
3000 PRINT DSs" "3 
3010 RETURN 
RUN 
SEG2 SEGG SEGIO SEGI SEG? SEGI1 


Line 2020 appends a space to the end of A$ so that we can 
pick off the last segment number. Variables C and C1 are 
used as pointers to the spaces present in A$, C takes on the 
value of the position of the next space in the string with Cl 
containing the position of the last space plus one position. 
D$ in line 2040 becomes the segment file number located 
between spaces. To complete construction of the file- 
name, “SEG” is appended to the segment number in line 
2050. The filenames are printed to the screen in this 
sample program. Normally, these filenames would be 
used with an “OPEN” command to the 4907. The contents 
would be read and displayed to the screen. The end of file 
(EOF) condition would be used to end the data input and 
"CLOSE’ the file. Operation of this program ceases when 
the length of the string is exceeded by the pointer C1 in 
line 2090. 


The routines developed to perform all of the 4907 
graphics data base demonstration will be documented 
and submitted to the 4051 Applications Library. The 
master data base of the U.S. Map, the segment files and 
the program to select and display the segment files will be 
available for use with the 4907 FILE MANAGER. 


Now you have the best of all worlds. With the new 
applications software program the 4051 will interactively 
retrieve and display sections of complicated graphics data 
bases with ease and speed. Interactivity is assured by the 
4952 Option 2 Joystick and intelligent flexible disc mass 
storage is provided by the 4907 FILE MANAGER. 
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4051 FAST Graphics 


by Chuck Eng and Nick Fkiaras 


The cathode ray tube display of the 4051 is a very high 
quality instrument capable of drawing speeds usually not 
exercised. Most programs that output graphics use logic 
loops that compute X-Y coordinates, followed by a 
MOVE or DRAW of the coordinates. Even though part 
of the graphics may remain the same, the “compute 
coordinates—MOVE/DRAW” cycle is used to 
regenerate the whole display. In a situation where 
identical redraws are needed, considerable time may be 
saved by taking advantage of the drawing speed of the 
4051. 


The following program example draws graphics using 
coordinates stored in a numeric array. Line numbers 100 
through 330 generate a design through the usual 
“compute—MOVE/ DRAW” loops but at the same time 
loads the computed coordinates into array Z.* Once the 
design has been plotted, program lines 1000 through 1040 
draw this design by accessing X-Y coordinates from Z 
array. 


INIT 
110 DIM 2¢362,2> 
K=4 


32 
150 DEF FNXCI>=COS(I> 
168 DEF FNYCI>@SINCI>&@.5 
170 DEF FNZ¢I>=COSCKSI> 
180 SET DEGREES 
198 VIEWPORT @,138,8,188 
200 WINDOW -1,1,;-151 
218 MOVE 1,8 
220 FOR I=@ TO 360 STEP 2 
230 A=FNZ(1)%COS(I> 
248 B=FNZ2¢I>*SINCID 
C=FNX(I) 
268 D=FNYC(I) 


288 DRAW @Q:C,D 
298 2¢I+1,1>=AES+65 


328 2(142,2)=D458+58 
NEXT I 


@ PAGE 
1010 WINDOW 8,136 
1020 PRINT @32,21 
1030 PRINT @32,20 
1648 GO TO 1828 


Two key factors are involved in the speed increase: 
elimination of coordinate recomputation from the draw- 
ing cycle and the use of secondary addressing for MOVEs 
and DRAWSs (i.e., PRInt @32:21 and PRInt @32:20, 
respectively). When using secondary addressing, a 
MOVE or DRAW need not be interpreted by the 4051 
processor on each vector allowing it to devote its full 
attention to picking X-Y coordinates from the Z array 
and drawing on the screen. It is important to note that 
plotting with secondary addressing will use only the 
default WINdow and VlEwport limits of 0,130,0,100. 


18,188 
Ciyl 


22 D, Z(1,2) 
32 


*When running this program, note the drawing speed on the design 
generation and compare it with the speed in the redraw. 
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Prompting Fixed Length Inputs 
by Ed Mitchell 


In many applications, such as data base manipulation, a 
field of fixed length is reserved for the data entry. The 
GIN, MOVE, and DRAW commands can be used to 
generate a line on the screen for prompting the operator 
as to the size of the available field. 


Using this method, you canentera name of any length for 
the field. The underline subroutine then calculates if the 
fixed length field will fit on the same display line, or if a 
new line is required. A line the length of the field is then 
generated in the appropriate location. This subroutine 
eliminates the need for printing a number of underline 
characters, and prevents wraparound from occurring as 
well. 


In the example program the operator is to input two 
fields. These fields, F$ and G$, are not to exceed a length 
of 15 and 68 characters, respectively. Line 140 sets the 
maximum length for F$ to 15 and line 150 prints the title 
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for the field. The program then branches to the underline 
subroutine to calculate if the entry will fit on the same line 
and draws the underline. Lines 190 through 210 check 
that the entry did not exceed the maximum length. 


The same process occurs in line 230, only this time the 
combined length of the title and field exceed the length of 
one line of print on the screen. In this case the subroutine 
spaces down one line, then draws the prompt underline. 
This eliminates wraparound. 


100 REN GRAPHICS PROGRAM FOR DATA ENTRY. 
116 REN 


io RER, ENTER A FIELD NOT TO EXCEED A LENGTH OF L . 
148 L= 
1 PRINT * FIELD 1 :"4 
60 GOSUB 328 
178 INPUT F$ 
180 PRINT 


H 
198 IF LENCFS$><=L THEN 2 
200 PRINT "FIELD ouERELOM” GJ" 
218 GO TO 150 
220 L=68 
230 PRINT * FIELD TEST 2 :°5 
248 GOSUB 328 
250 INPUT G 
260 PRINT 
270 IF LENCG$><=L THEN 300 
280 PRINT “FIELD OVERFLOW !GJ” 
298 GO TO 238 


368 END 
38 RES a a i UNDERLINE SUB. SS5SRSS0SSS8008888285 2885885 
Xs 
30 MOVE 


X, Y-0.3 
340 IF X+ (L-0. 44)%1.72¢127 THEN 480 
338 PRINT 
368 


378 Rove K Y-8.3 
388 DRAW Rees, 42>81.72,Y-8.3 
to GO TO 4 

88 DRAW Kece-8. 44>21.792,7-8.3 
aie MOVE Sea’ 
420 RETURN 


RUN 

FIELD 1 :@BCDEFGHLJKLNHO 
FIELD TEST 2: 
12345678: 
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For/Next Loop Revisited 


by Ms. Bobbie Smith 
University of Miami 


TEKniques Vol 1, No. 9 contained the programming tip 
"Saving Memory, For/Next Loop Exit”. It should be 
noted that the program example given could create an 
improper call to the |" eiement of J if the real” loop does 
go to completion. One way to get around this is by the 
following: 


READ J 
138 FOR book me 1 
146 FOR I=1 TO N 
150 IF Dee THEN 180 
1er NEXT I 


70 WEXT A 
ee IF I<C=N THEN 
198 PRINT Lo WENT TO COMPLETION. 


206 GO TO, 
216 Sereacdsi, etc. 


I= Nei." 


This method takes advantage of the fact that the variable I 
will always be equal to N + 1 if the loop goes to 
completion. 
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Multiple Use UDK 
Subroutine 


by Joe Gamble 


Here is a relatively simple way of getting the equivalent of 
as many User-Definable Keys (U DK’s) as one wants. The 
routine counts the number of times each UDK is 
depressed, and uses this as an index. 


In a more practical program, the “PRINT D..E..F..” 
would normally be a series of GOTO’s, and I now prefer a 


slightly different sorting system. The technique may be 
extended to all the UDK’s, and there is no limit to the 
number of strokes as long as they are made less than 0.9 
seconds apart and as long as the key is not held down 
longer than 0.9 seconds. Of course, a longer delay could 
be used to give a greater safety margin. 
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10 GO TO 168 


0 358 
85 REM>> Isec delay 
86 FOR J=1 TO 16 
87 PRINT @32,24: "x" 
NEXT J 
ETURN 
IF K=2 THEN 150 
@ IF K>2 THEN 170 
PRINT "D"; 
0 T0 2 
H PRINT "E"; 
@ PRINT “FS 
GO TO 2 
IF K=2 THEN 256 
IF K>2 THEN 300 
"a's 
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DiMensioning Strings Downward 

Upward If, later in the program, less space is required for A$ and 
the bytes are needed elsewhere, a DELete command must 

By default a string (A$, BS, . . .) is dimensioned to 72 be issued before re-DIMensioning the string: 

bytes. To gain additional space, the string variable must 108 DIN asczee> 

be DIMensioned: 

168 DIM A$(2008> 388 DELETE A$ 


390 DIM A$(50) 
200 bytes are now reserved for A$. Once a DIM command 


has been executed for a string, to gain additional space, 
the variable must first be deleted and then re- 


If the string is simply dimensioned downward without the 
DELete command, the working space is reduced but the 


DiMensioned: space allocated in the original DIM statement is still 
108 DIM A$(200) reserved for that variable. 

i] 

I 

430 Bier aet anes Refer to the DIM segment of the LANGUAGE 


ELEMENTS section in your 4051 Graphic System 
Reference manual for a discussion of the details using this 
statement. 
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Writing Subroutines with a 99 line number (n99). This aids in flowcharting the 
program during development, and allows for easier 
by Herman H. Kan debugging and expansion. Refer to the Programming Tip 
in TEKniques Vol. 1 No. 7, entitled "Renumbering 


When developing and coding a program with sub- 
routines, it is very helpful to start each subroutine on a 
separate page. In addition, each subroutine should start 
with an even line number, such as n00, and should end 


Programs”. 
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Coding Desig nates Delay short; for a longer delay, try the following coding: 
by A.W. Leigh PRINT USING "1O(118¢20"" HY">>%,5": 
Liverpool Polytechnic The delay provided by this method is approximately 10 


TEKniques Vol. 1 No. 10 contained a Basic Bit entitled seconds. The delay length can be changed by changing the 
"Save Your Memory,” that provided a technique for a first repeat operator, which gives the approximate delay 


waiting loop. The delay provided by this method is fairly in seconds. 


REPRINTED FROM TEKNIQUES, VOL 2 NO 3 — 4050 SERIES APPLICATIONS LIBRARY NEWSLETTER 


H H 120 DATA 4 
Variables for File Numbers 130 REM Number of each file. 
, ; . A 148 DATA 4,5,6,7 
Often a program uses multiple tape files. Using variables ie REDS 
instead of constants as arguments of the FINd statement 178 READ F 


allows changing the sequence of files on a tape by rog REH Continue with nain progran: 


recoding only one statement in a file. Example: I 


188 INIT 666 REM Call in subprogram file 
118 REM Total number of files in progranm. 618 FIN FC2> 
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Dashed Line Algorithm Update 


by Syed M. Hasan 
Troy, Michigan 


Regarding the enhanced version of the Dashed Line 
Algorithm suggested by Ken Cramer in TEKniques Vol. 2 
No. 1, page 9: Problems can be encountered when 
drawing a vertical line downwards. The program can 
iterate indefinitely in the FOR/ NEXT loop in lines 1210 


to 1230. In the case of the downward vertical line, X1 is 
equal to X2, and statement 1200 reduces to this: 


1200 FOR I=8 TO @ STEP @ 


This is an infinite iteration. The probelm can be overcome 
by using the following technique: 


1195 H=23(ABSCU1>MAX ABSCU2>> 
1206 FOR I=@ TO ABS(X2-X1-U182> MAX ABSCY2-Y1-U282> STEP H 
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Base Changing Routine 


by Henry E. Zeuli 
Massachusetts Institute of Technology 


The following routine can be easily included in any 
program that requires conversion from base 10 (decimal) 
to another base supplied by the operator. Lines 430 
through 550 operate on any decimal number in D1 anda 
base, sixteen or under, entered in B1. The number value in 
the new base is returned in R$. The routine operates on 
any positive decimal integer. 


388 PRINT “DECIMAL INPUT, BASE OF OUTPUTJ” 


408 GOSUB 438 

418 PRINT USING "3STFALFD*:R$,B1 
428 GO TO 398 

430 REN DEC TO. -=--> CONU SUBR 
440 D$="0123456789ABCDEF" 

450 RS="* 

460 H$="" 

470 D2=INTCDI7B1> 

488 03=D1-D23B1 

498 H$=SEG(D$,D3+1,1) 

500 RS=HSERS 

510 IF D2=@ THEN 540 

528 Di=b2 

53@ GO TO 478 

540 DELETE 02,D3,D$%,HS 

550 RETURN 
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Good programming practice includes keeping a backup 
of your program on a separate tape. And, as we often find 
out too late, using the MA Rk statement very carefully is 
also good programming practice. But if hindsight has 
outranked foresight, the following tip may be of help. 


Salvaging re-MARked Files 


by Hermand D’Hondt 
Tektronix Australia 


The following program usually works to salvage files 
which have been MARked over. However, it is not 
guaranteed. It seems to depend on the precise location of 
the “LAST” file in relation to the succeeding files. 


100 ON EOF ¿O> THEN 200 

110 PRINT @33,0:0,8,1 

120 REM Find the new "LAST" file 
138 FIND 3 

148 PRINT @33,0:8,8,8 

150 INPUT @33: As 

160 PRINT A$ 

170 GO TO 150 

200 FIND 5 

210 REM Input, old or append lost file 
220 INPUT @33:A$ 

230 PRINT A$ 

248 GO TO 228 


Another Method (A Last Resort) 
If the preceding program does not work, your local 
Tektronix Systems Analyst may be able to assist you. 


sl aah ae a 
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line segments that are outside the field of view defined by 
a 3-D window. This article describes a simple but very 
capable 3-D line clipping algorithm. 


3-D Line Clipping »y Jay Beck 


When drawing three-dimensional objects on the 4051, it is 
necessary to perform your own line clipping to remove 


10090 


10050 
10069 
1007 

101 
10090 
10100 
10110 
10120 


10130 


11110 
11120 


INIT 


-X,Y,Z coordinates 


11130 PRINT 

11140 PRINT "Enter VIEWPORT boundary values" 
11150 PRINT "V1,Vr,Vb,Vt : "; 

11160 INPUT VO,V1,V2,V3 

11170 V6=(V14V0)/2 


V1-VO)/2 
11200 V9=(V3-V2)/2 
11210 REM=— = 
11220 PRINT @32,21:V0,V2 
11230 PRINT @32,20:V1,V2 
11240 PRINT @32 
11250 PRINT @32,20: 
11260 PRINT @32,20:V0,V2 


10140 11270 RETURN 

10150 REM--- 11280 REM j CA nnn ene nee e ence. : 
10160 DATA 1,3,5,7,1 11290 REM; 

10170 DATA 9,11,13,15,9 11300 REM į i 
10180 DATA 17,19,21,23,17 11310 REM i i 
10190 2 11320 FOR I=1 TO 4 

10200 11330 FOR J=1 TO 4 

10210 11340 IF I=J THEN 11370 

10220 11350 M(I,J)=0 

10230 Read X9,Y0,20 11360 GO TO 11380 

10240 RESTORE 11370 M(I,J)=1 

10250 FOR I=1 TO 24 11380 NEXT J 

10260 READ XO(T) ,YO(I),20(1) 11390 NEXT I 

10270 11400 RETURN 

10280 Read Line Descriptors 11410 REM 

10290 ) 7 11420 REM 

10300 FOR J=1 TO 5 11430 REM 

10310 READ LO(T,J) 11440 REM j=. 

10320 NEXT J 11450 FOR I=1 

10330 NEXT I 11460 FOR J=1 

10340 REM--------~~~------------------_ Initialize [ M ] 11470 T(I,J)=0 

10350 GOSUB 11320 11480 NEXT J 

10360 REM— --Define Window 11490 

10370 11500 

10380 REM Define Viewport 11510 

10390 GOSUB 11520 

10400 REM=-~~---------~----.--------.. -Generate Line List 11530 

10410 FOR I=1 TO 7 11540 

10420 J=1 11550 

10430 GOSUB 11730 11560 

10440 FOR J=2 TO 5 11570 S(I,J)=M(I,J) 

10450 X1=xX2 11580 NEXT J 

10460 Y1=¥2 11590 NEXT I 

10470 21=Z2 11600 FOR I=1 TO 4 

10480 GOSUB 11730 11610 

10490 GOSUB 11840 11620 M(I,J)=0 

10500 NEXT J 11630 FOR K=1 TO 4 

10510 NEXT I 11640 M(T,J)=M(I,J)#T(1,K)®S(K,J) 

10520 END 11650 NEXT K 

10530 REM 11660 NEXT J 

10540 REM 11670 

10550 REM 11680 

10560 REM 11690 i 
10570 PRINT 11700 i 
10580 PRINT "Enter WINDOW boundary values, and Eye Point Distance.” 11710 è 
10590 PRINT "Wl, Wr ,Wo,Wt,Wh,Wy,E : "; 11720 i 
10600 INPUT WO,W1,W2,W3,W4,W5S,E 11730 XOCLO(T J) )*M(1,1)+YO(LO(I,J))*M(2, 1)+Z0(LO(T ,J))*M(3, 1)4M(4, 1) 
10610 W6=(W1+W0)/2 11740 OCLO(T,J))#M(1,2)4¥O(LO(T,J))*M(2,2)+Z0(LO(T ,J))#M(3,2)4M(4.2) 
10620 W7=(W3+W2)/2 11750 Z22=XO(LO(T,J))®M(1, 3)+Y¥O(LO(T ,J))#M(2,3)+Z0(LO(T, J))#M(3, 3)+M(4, 3) 
10630 W8=(W1-WO)/2 11760 RETURN 

10640 W9=(W3-W2) /2 1770 REM | ---~---~~----~---~--~-------------------------------------- i 
10650 GOSUB 11450 11780 REM } 3D CLIPPING ALGORITHM i 
10660 T(1,1)=1 11790 REM } Input F(i,3) Directrix vectors i 
10670 T(2,2)=1 11800 REM ; N(i,3) Normal vectors to Window Planes i 
10680 T(3,3)=1 11810 REM ; X1,Y1,21 Vector start i 
10690 T(4,1 11820 REM ; X2,Y2,22 Vector end i 
10700 T(4,2)=-W7 11830 i i 
10710 T(4,3)=-E 11840 

10720 T(4,4)=1 11850 D2=¥2-¥1 

10730 GOSUB 11550 11860 D3=22-21 

10740 11870 

10750 11880 L=0 

10760 11890 FOR I1=1 TO 6 

10770 11900 Gl=X1-F(I1,1) 

10780 11910 G2=Y1-F(11,2) 

10790 11920 G3=21-F (11,3) 

10800 11930 D=DI*N(T1,1)+D2*N(I1,2)+D3®N(I1, 3) 

10810 11940 VN(T1, 1)4G2*N(11,2)463*N(I1, 3) 

10820 11950 IF D=0 THEN 12010 

10830 11960 

10840 11970 i 12030 

10850 11980 IF C<O THEN 12220 

10860 11990 U=C MIN U 

10870 12000 GO TO 12050 

10880 12010 IF G<O THEN 12220 

10890 12020 GO TO 12050 

10900 N 12030 IF C>1 THEN 12220 

10910 12040 L=C MAX L 

10920 N(4,2)=0 12050 NEXT 11 

10930 N(4,3)=-2*WO*W3 12060 REM---------- 

10940 N(5,1)=0 12070 IF L=>U THEN 12220 

10950 N(5,2)=0 12089 X3=X14D1*L 

10960 N(5,3)=1 12090 Y3=Y1+D2"L 

10970 N(6,1)=0 

10980 N(6,2)=0 

10990 

11000 ----Define i-th plane weight vector 

11010 FOR I=1 TO 6 as 

11020 FOR J=1 TO 3 3723®( WUV 8/W8 )+V5 

11030 F(I,J)=0 3/23*( W48 9/W9 ) +47 

11040 NEXT J 4/Z48( WU#VB/W8)+V6 

11050 NEXT I Y/Z4®( WUV 9/49 )4V7 

11060 F(5,3)=W4 - 

11070 F(6,3)=W5 12200 PRINT @32,21:ABS(X5) ,ABS(Y5) 

11080 RETURN 12210 PRINT 932, 20:ABS(X6) , ABS(Y6) 

11090 REM 12220 RETURN 

11100 REM 


To understand the program (Fig. 1), youshould be aware 
of the two coordinate systems the program employs. The 
first coordinate system is left-handed and is used to 
describe the object to be viewed. The clipping algorithm 
given is driven by a short program that uses a cube as a 
test object. Figure 2 shows the cube as defined in the 
program listing (lines 10090-10140). 


A left-handed coordinate results when the Z+ axis is 
extended into the screen. This was done for two reasons. 
First, the three-dimensional axes are a simple extension 
of the more familiar two-dimensional axes. And second, 
the 3-D clipping window specification is an extension of 
the same parameters used to specify the 2-D clipping 
window on the 4051. 


(wo,w3) (W1,W3) 


—.5,1.5 1.5,1.5 


(EYE POINT) 


—.5,—.5 


(wo,w2) 


Fig. 3. 


The 3-D clipping window is specified in the left-handed 
coordinate system of the cube. The field of view is shaped 
like a pyramid lying on its side. WH and WY, seen edge- 
on in Fig. 3, are the “near” (to E) and ”far” clipping planes. 
One can think of the 2-D window specification as 
describing a rectangle on the WH plane. The aspect ratio 
of the pyramid is controlled by the shape of the rectangle 
and the distance ”E” is located from it. We assume that the 
X,Y location of E is always aligned with the center of the 
rectangle, thus to locate the eye point, only its Z 
coordinate is required. 


Fig. 4. 
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Fig. 2. 


The second coordinate system is used to reduce the 
complexity of doing the clipping step. This coordinate 
system uses the eye point as the origin. The clipping 
boundaries are described to the program by specifying the 
normals (of the six planes) that face toward the pyramid’s 
interior, and by specification of a point lying on each of 
the six planes. By locating the eye point at the origin, the 
point (0,0,0) is common to four of the six planes and can 
be used to satisfy part of the pyramid specifications. 


The translation of the test object to the clipping axes is 
performed by a translation matrix.! 


[x YZ1] ve 2 n 


=([x? 


The clipping algorithm works in basically the following 
manner. Suppose we are given a 3-D line segment ”L” that 
penetrates a clipping plane ”P”. The projections of a line 
segment, and a reference vector onto a normal to the 
plane form a proportion b/a. The reference vector is 
known to originate on the surface of the plane (because 
we defined it that way). 


The proportion b/a is always a value between @ and | if 
the line segment intersects the plane. It may be <0, or 
>l, if an extension of the line segment intersects the 
plane, but these cases are rejected. The six clipping planes 
form a convex 3-space that can only be penetrated in two 
places by a straight line.? By determining the ratio b/a for 
all six planes a set of values is determined. If we order this 
set, the two middle values will determine the clipped line 
segment. 


N (Reference Vector) 


Fig. 5. 


Figures 6 and 7 resulted from running the program. The 
input parameters are defined below. 


wi 
Wr 
Wb 
Wt 


Window left 
right 
bottom 
top 

Wh hither 

Wy yon 

E Eye 


(Xmin) 
(Xmax) 
(Ymin) 
(Ymax) 
(Zmin) 
(Zmax) 
(Z) 


Viewport left 
right 
bottom 
top 


(coordinates of object) 


(screen display units) 
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Enter WINDOW boundary values, and Eye Point Distance. 
Wi, Hr Wb, Wt, Why, E 2 -.5,1.5,-.5,1.5)-.551.55-3.5 


Enter VIEWPORT boundary values 
5,86,5,88 


V1,Ur, Ub, Ut : 


Fig. 6. 


Enter WINDOW boundary values, and Eye Point Distance. 
Wi,Hry Wo Hti Hh Wy, E > .4,1.15.4,1.15--151.15-3.5 


Enter VIEWPORT boundary values 
V1,Ur,Ub,Ut : 5,88,5,88 


Fig. 7. 
Program Note: 


The program uses screen level moves (Print @32,21) and 
draws (Print @32,20). Roundoff error can result in very 
small negative numbers (on the order of -.6E-13) instead 
of zero. When this occurs the line is not drawn properly. 
To avoid this potential problem, the coordinates used are 
forced to be greater than zero by use of the ABS( ) 
function. 


Describing Your Own Object 


Lines 10090-10140 contain an ordered set of coordinates 
for the ends and midpoints of each edge in the cube’s face. 
Each line (from 10160-10220) designates the coordinates 
to be used in drawing a closed line about the cube. The 
position in the X0, YO, ZO array in which the coordinate is 
stored is the value used on these lines. 


To describe your own object, list the object’s unique 
coordinates in a table. 


Then, in a data statement, write these coordinates in the 
following order: 


Xi Yı Zi X Yə Z2... 
Using one data statement per polygon, describe each 
polygon in the following manner: 


(Number of points) ak index , d{index, >: 
index , ),... (index, ) 


e.g. DATA 5, 1, 4, 7, 9, 1 
tl el 
N 5 coordinates 


Change line 10060 to: 


max index P, max (n) +1 


\ tH 


10060 DIM X024), YOC24), Z024»), LOC ; > 


Change Lines 10290 to 10330 to read: 


10290 READ P 

16292 FOR I=1 TO P 
18294 READ L@CI,1> 
16296 FOR J=2 TO N+1 
10298 READ LƏCI, J) 


Also lines 10410 and 10440 should read: 


10420 FOR J=1 TO P 


1 
10440 FOR J=2 TO L@CI,1) 


' Newman, W. and Sproull, R.; Principles of Interactive Computer Graphics, Chapters 12-14, 
(McGraw Hill 1973). 


? Beck, J. and Cyrus, M.; Computer Graphics: Two- and Three-Dimensional Clipping, AFH RL- 
TR-77-14, USAF Systems Command. 
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Tie Menu to Both Keyboard and 
User-Definable Keys 


Many 4051 programs can be written so that the user may 
use either a screen menu, inputting the choice from the 
keyboard, or the User-Definable Keys. The following 
program layout is a suggestion of a standard use of line 
numbers and a way to tie the menu to the UDK’s so that 
both are equally easy to use. 


1 REN--Progran title goes here 
2 SET KEY 
3 GO TO 100 
S CaA eee ist subprogran here 
: GOSUB 1088 
4 REM--Describe 2nd subprogram here 
1@ GOSUB 2000 
END 


1 
40 REM--UDK #18--Use screen nenu 


41 C=10 

42 GO TO 300 

1 

I 

1 

80 REM--Describe 28th subprogram here 
81 C=20 

82 GOSUB 20000 

s ENO 

i} 


1 

100 REM--Menu Routine 

110 REM--Do all dimensioning here 

128 REM--Do all data assignments here 

130 REM--The above should only have to be 
131 REM--executed once. After that the 
132 REN--user should use menu or UDK and 
133 REM--never have to type "RUN" 

1 


1 

300 REM--Screen Menu 

318 PRINT “LTitle of ProgranJ* 
320 PRINT * 1--Subprogram 1" 
ane PRINT * 2--Subprogranm 2" 


1 
i 
410 PRINT “18--Stop and Use UDKs” 
1 
i 


1 

498 PRINT “19--Subprogran 19" 

5@@ PRINT *28--Subprogram 20" 

518 PRINT “JYour Choice: "; 

520 INPUT C 

530 IF C=10 THEN 580 

540 GOSUB C OF 1000, 2000, 3000, 4808, 5008, 6008, 7000, 9008, 9000, 580 
550 GOSUB C-10 OF 11008, 12008, 13008, 14808, 15000, 16080, 17888, 18080, 20000 
560 REM--Redisplay menu 

570 GO TO 300 

580 REM--Return 4851 to idle mode 

590 END 


1 
i 


1 

1000 REM--Subprogram 61 

1010 REM--Use submenus if necessary 
I 


| 
1XXX RETURN 
1 


' 

i 

2000 REM--Subprogran #2 
i 

2XXX RETURN 

[i 

I 


' 

10000 REM--Use this area for any extra routines. 
10001 REM--This area is free since item 18 
10002 REMN--1s used to flip-flop between the 
10003 REM--screen menu and UDKs. 

l 


I 

[ 

20000 REM--Subprogram #26 
1 

1 

1 

20XXX RETURN 

[i 

[i 


i 
21000 REM--Multiply used utilities and other 
21001 REM--subprograms can start here 


NOTES: 


1) Note that C is set both by the screen menu and UDK’s. 
This means that you use C as a flag in cases where one 
subprogram GOS UB’s to another. 


2) GOSUB’s must be used in the UDK definitions in 
order for proper return when the screen menu is used. 


3) If there aren’t enough lines for a particular sub- 
program, use a GOSUB to line numbers above 21000 
or use the 10000 area. Be sure to terminate the 
extension with a “RETURN”. 


4) By definition, the UDK starting line number is the 
UDK number times 4. The subprogram starting line 
number is the UDK number or C times 1000. 


5) By using UDK #10 (C=10) for flip-flopping between 
the screen menu and using the UDK’s, you can always 
get the screen menu by pushing UDK #10, even if you 
have lost the card overlay. 


ee a, ee ee i FE a ae 
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Overlays Expand Capability 
by Jay Beck 


How do you run a program larger than the memory 
capacity of your machine? Try the overlay technique 
using the 4051 memory management capability combined 
with the 4907 FILE MANAGER. 


Create overlays by developing a program as a set of tasks 
to be performed. Write each task as if it were to be the 
only one in the machine. The tasks will be loaded (and 
later deleted) under the control of a small program that 
always remains in memory. Each task is called an 
“overlay” because it occupies the same memory as the 
preceding task. 


To see how the overlay technique is used, let’s analyze an 
overlaid program comprised of three tasks. (In our 
example, the function of each task will be the same.) 


Three things must be considered ina numbering strategy. 
1) The line numbers must remain the same in key sections 
of the small program that loads the overlay. 2) Each 
overlay must begin with the same line number. 3) Each 
overlay’s line numbers must lie within a known range. 


10000 GO TO 
20000 REM 
20010 REM 


30090 


~-OVL-- AREA 


30000 
30010 
30020 
30030 
30040 
30050 
30060 
30070 
30080 
30090 
30100 
30110 
$0120 
30130 R 
30140 


REM 
REM 
REM 
REM 
REM 


Load OVL.. Area 


MAIN PROGRAM 


mawa Tyrical Overlay Reauest 
F$="@PROGRAM/OVLO1" 
GO TO 30060 


30150 
30160 
$0170 
30180 
30190 
30200 Ri 
30210 
30220 
30230 
30240 
30250 
30260 
30270 
30280 


SR SES STROSS ey LOAD OVL__AREA 
IF F$=A$ THEN 30280 
DELETE 20020129990 
Q=MEMORY 
CALL *UNIT*»U 
APPEND F$#20010+10 
AS=FS 
RETURN 


Fig. 1. Numbering system for the main program. 


The small controlling program (Fig. 1) is written soit can 
be renumbered starting at line 30080 (e.g., REN 30080,- 
10,30080). The sections of this program that are not to be 
disturbed are placed at the beginning. Thus, the main 
program can be developed and renumbered as new 
common routines are added. 


For our example, the overlays have line numbers from 
20010 to 29990. This allows 998 lines of 4051 BASIC to be 
written per overlay, using a line number increment of 10. 
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As mentioned, the overlays are identical except for the 
title banner and the first line of the message displayed. 
Note that each overlay begins with a REMARK state- 
ment. This statement has the same line number as a 
REMARK statement in the small controlling main 
program. Thus, each time the DELETE is done, a 
properly numbered line remains behind to serve as a 
target line in the next APPEND operation. 


"Overlay 1 Entered’ 


*CHOOSE 


NEXT OVERLAY" 
* OVLO1 --1--* 


PRINT “ENTER OVERLAY CHOICE : *3 
INPUT 0 

IF O<1 OR O>4 THEN 20140 

IF O=4 THEN 20240 

O$=STR(O) 

O8=SEG(08+2+10) 
REM~-~~~~-~~~Reauest+Transfer--------=~} 
F$="@PROGRAM/OVLO* £0 


"Overlay 2 Entered’ 
*CHOOSE 
* OVLOL 
* OVLO2 
* OVLOZ 
* END --4-- 
"ENTER OVERLAY CHOICE : "% 

INPUT 0 

IF O<1 OR 0>4 THEN 20140 

IF O=4 THEN 20240 

O$=STR(O) 

O%=SEG(0$+2710) 

Reauest+Transfer 
F%=*@PROGRAM/OVLO* £08 
GO TO 30060 


NEXT OVERLAY" 
choral 


“Overlay 3 Entered* 


* CHOOSE 


NEXT OVERLAY" 


PRINT *ENTER OVERLAY CHOICE : *; 
INPUT 0 
IF 0<1 OR 0>4 THEN 20140 
IF 0=4 THEN 20240 
O$=STR(O) 
O$=SEG(0$+2710) 
Reauest+Transfer 
F$="@FROGRAM/OVLO* 820$ 


Fig. 2. Overlay numbering system. 


Line numbers 30210 to 30280 actually load the overlay, 
but only if it is not already resident in memory. 
Q=MEMORY is included to compress memory before 
the APPEND statement is executed. 


The GOTO in line 10000 transfers control to the initial 
statement in the overlay controller program at line 30090, 
bypassing the sensitively numbered section. Organizing 


the program in this manner also ensures that an overlaid 
program, terminated with an END or STOP statement, 
can be RUN again without reloading any part of it from 
the 4907. 


Figure 3 portrays the file structure created for the sample 
program. Using the desired overlay number (lines 20140- 
20190), the program dynamically builds a file name (line 
20210) which the system then requests for loading. 


When large programs are implemented as overlays, the 
4907 can be used to provide direct access and fast loading 
of program segments. Using such techniques allows 
powerful application programming systems to be built. 


PROGRAM 


Fig. 3. 4907 file structure created for the sample program. 
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Save Overlay On Correct File 
by Jay Beck 


In developing a large program using overlays, you will be 
doing repeated OLDs and SAVEs. In the first few lines of 
each overlay include as part of the REMARK statement 
the name of the file in which that overlay is to be stored. 
Then, take time to list these lines and check the name of 
the file to avoid mistakenly storing an overlay on the 
wrong file. 
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4051 Subroutine Linkage 


The GOSUB keyword is a very powerful and useful 
feature in BASIC. However, this feature can occasionally 
lead to undesirable results if its use is not fully un- 
derstood. 


Each time a GOSUB statement is executed, six more 
bytes of Random Access Memory is allocated to a push- 
down stack for the storage of return address pointers. In 
turn, each time a RETURN statement is executed, the 
stack is popped; allocated memory is then returned to the 
system. The stored return address is used to continue 
execution at the statement following the GOSUB. 


This procedure works very well until a program branches 
out of a subroutine, using a GO TO or an IF-THEN 
statement. If these branches out of the subroutine do not 
re-enter the subroutine or execute a RETURN statement, 
then the stack is not popped. Many iterations of this 
process of pushing the stack (with a GOSUB) and 
neglecting to pop the stack (with a RETURN) results ina 
gradual loss of memory and, eventually, a MEMORY 
FULL condition. 
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OS SS a a a aS IF] 


Tracking Variables and Function Variables. Examples and the program 


. f listing follow. 
Up to your ears with paper and code? Can’t find those £ 


chunks with your variable names? Get organized. Try one 
of the variable tables sent in by TEKniques readers. 


STRINGS 


The first type of table is a form contributed by Bob Young 
of Tektronix. A handy program draws it on the 4662 
Plotter. Shown below is a working example. 


4051 BASIC VARIABLE TABLE 


PROGRAM: €xamphe #X 
2 3 
ito 
B 


REY 


Descviphow 


SIMPLE 


ur Twat a+ 


koot 1 [cove 2 
Pu T jour pur [OVT A 0u PuT 
tos 3 | cou. 
+ 


a 


ak 
REMARKS: CRT = 32 
doui Maree Pentet =“! 
Aer PLOTTERS 2 


2 


9 
: SIC VARIABLE TABL E* 

15@ PRINT 0,21: 9 
160 PRINT @D: "PR 
170 PRINT @D,21: 


«3 
180 PRINT @D,20:1 » 255125. +255.75,125.2,93.3,9.6,93.3,9.6,5.75 


230 FOR 1=26.9 TO iar STEP 17.872 
240 PRINT @D,21:1,5.7 
250 peant @0.20:1,93. 3,188. 936,93.3,1+8.936,5.75 


@ NEXT I 
278 FOR. 188.6 TO 88 STEP 6,596 
280 PRINT @D,21:125.2;1 
298 NEXT @D,26:9.6,1,9.6,1+3.298,125.2,1+3.298 


300 
318 DATA "9", "8", "7%, "6", "5n, ng", ngu "2", HLH, MOM, npn ge 
328 FOR 1-120 T0'i4 STEP -8.936 
33@ READ A$ 
348 PRINT @D,21:1,91 
35@ PRINT 1 Fe 
368 NEXT r 2 oer, Kev 
370 DATA "A", "B", "C", "D", "E", "F", "G "H" "gH, nJ" AKu MLN, OME 5 co To leo 
gee DATA cee! sora E" ron, "Besos, FO Rg Ug AUF OM, PX", eye, e2e i Ren 4283422224222432 U/D 1 LIST STRINGS £xSRRReRRESE REA TA eee ESE ETT 
400 READ A$ S ERINI sae ees 
aie pathy est: 11.3251 8 REN 4424443224234224% U/D 2 LIST SIMPLE VARIABLES 44aatexatererserese 
439 NEXT I 1@ PRINT 032,26:3 
12 REN 4454244444247 U-D 3 LIST FUNCTIONS F¥4RRERERER ERRATA RRT ERE 
The second type is in the form of a BASIC program. Ed is Goto g32,26:3 
Mitchell of Tektronix wrote the program that prints 191 PRINT SENTER, DEVICE HUMBER FOR LINE PRINTER (40 OR 41>, OR RETURN" 
: A ‘ @ RENPRINT @32 
variable tables on the screen or to a line printer. Ed’s 13 1 INPUT AF eae 
program provides for String Variables, Simple Variables, lee TF b=a8°OR Desi THEN 200 
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178 GO TO 108 
188 GO TO 200 
bae PRINT XPRESS RETUR 
` URN FOR COMPLETE LIST OR PRESS USER DEF INA 2 2"; 
210 PRINT “ OR 3 FOR" ees 3 
220 PRINT “PARTIAL LISTS." 
230 INPUT A$ 
240 REM (nanenennncccensncensenenesenen START STRING LIST==< 
PR 


STRINGSJJ" 


320 IF FO THEN 380 
338 R REN 227 Fei IS THE USER DEFINABLE FLAG ??? 
350 PRINT @32,26:0 
360 END 
370 RE ¿naznasssassznanzszanenzzsnzsem START SIMPLE VARIABLE ==< 
380 PRINT @D:"L" 
390 PRINT @D:" SIMPLEJ* 
400 FOR N=65 at 98 
418 BS=CHR(N 
428 PRINT ob: CS ge ee J” 
430 RI -PRINT SIMPLE UARIABLES 4 AT A TIME (SUB 670) 
4490 m8 
450 Y=3 
460 GOSUB 678 
478 X=4 
488 Y=7 
498 GOSUB 678 
Sog X=8 
1 


@ ¥=9 
GOSUB 678 
O REM 


nee GIN IS TO INSURE THAT COMPLETE VARIABLES ARE PRINTED 


BY FORCING A PAGE FULL IF THERE ISNT ENOUGH ROOM 


S20 THEN 62 
0<>32 THEN £20 


ot 
Tr 
IF 
538 copy 
co To 620 
NEXT N 
IF F<>1 THEN 760 
8 Fai 
PRINT @32,26:8 
END 
FOR Ni=x TO Y 
C$=STRCNI> 
C$*SEGCC$,2,1) 
0: BS5C$5" 
N1 
AR 
saje 
reel Mad 


: FUNCTIONSJJ” 
TO 90 STEP 3 
TO 2 


3 JHEN 870 
{ 
Sip” e a EP NEEE kis | 
Ni 
Pritt ep: "JJ" 
EXT 
1 D<>32 THEN 890 
@ COPY 
PRINT @32,26:8 


The third type of variable table is also a BASIC program 
contributed by Dr. P. C. Holman of the University of 
Wisconsin-Stevens Point. It is a quick and easy screen- 
only table to keep track of numeric variables or alpha 
strings. The table is reproduced here followed by the 
program listing. 


PROGRAMMING AID 


> 


> 
) 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 


INIT 
REM THIS IS A FROGRAN. i A you 
sen ANY PROGRAM. AS YOU USE 

M FILL IN THE PARENTHESIS ano” CIRCLE WHA 
a R DIMENSION NUMERIC T VARIABLES)» 
REM A$(49) TO DIMENSION AN ALPHA STRING VARIABLE. > 
REM ALSO THEY CAN 

nen (e.g. LET A=A+1), (e.g. LET AS="THE® 


tet L$="ABCOEFGHI JKLMNOPQRSTUUWXYZ* 
er "ghee 89 


KEEP TRACK OF THE VARIABLES I 
etre vee Her on erie STRING 


OR (es. 


N 


PROGRAMMING AID * 
PROGRAMMER_______-______ 3 


= PROGRAM NANE 
‘pale ne ne 
. 
NUMERIC “i 
PRINT * ALPHA" 
PRINT 
FOR I=1 TO LENCL$) 
LET AS=SEG(LS, 1,1) 
8 FOR Jet TO LENCHS) 


LET NDERSEGNE, Jy 1) 
ERIT B$;" 


T J 
PRINT * "SASS "SC 
NEXT I 
END 


v 
~ 
z 
= 


z" 


Whatever means you use to track your variables, include 
it in your documentation. Your program user will be 
forever grateful. 


Note: There are also two programs in the 4051 Applications Library to 
do variable cross-referencing for existing programs: 51/00-8002/0 and 
51/00-8003/0. 


en Ee 


REPRINTED FROM TEKNIQUES, VOL 2 NO 4 — 4050 SERIES APPLICATIONS LIBRARY NEWSLETTER 


CASE Condition and Parentheses, 
Brackets and Braces by Arnie Kaber 


When SET CASE (default) is in effect, the BASIC 
intepreter considers lower case letters equal to upper case 
letters in string comparisons. The following pairs of 
symbols are also considered equal. 


{> C3, c) 


However, if SET NOCASE is specified, upper and lower 
case letters are not equal; and neither are these symbols. 
The following examples illustrate results in each case: 


ee SET NOCASI 
10 IF "E RABCI =" CABC" THEN 300 
20 PRINT “THEY ARE NOT EQUAL” 


00 END 
300 PRINT "THEY ARE EQUAL” 


nener 


RUN 
THEY ARE NOT EQUAL 


LIS 

100 SET CASE 

110 IF "CABCI"="(ABC)" THEN 300 
128 PRINT “THEY ARE NOT EQUAL" 


@ END 
300 PRINT “THEY ARE EQUAL” 


RUN 
THEY ARE EQUAL 


SET NOCASE 
118 IF “{ABC>*="(ABC>* THEN 300 
PRINT “THEY ARE NOT EQUAL” 


308 PRINT "THEY ARE EQUAL” 


RUN 
THEY ARE NOT EQUAL 


s$ 

80 SET CASE 

10 IF *{ABC>*="(ABC)* THEN 300 
20 PAINT “THEY ARE NOT EQUAL” 
PRINT “THEY ARE EQUAL" 


RUN 
THEY ARE EQUAL 


Consequently, comparing strings which include 
parentheses, brackets and braces, may produce unan- 
ticipated results. 


However, in numeric operations, the 4051 converts 
brackets or braces to parentheses (or drops them if 
unnecessary). Therefore, invalid results due to these 
characters won't occur in numeric comparisons. 


For example. 


100 Am1724{243>-(04-2373) 462473) 
116 PRI A 


Az142+(243)-(4-2)7342473 
120 END PRINT A 
138 
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INIT Rather Than CLOSE 
by Jay Beck 


When your 4907 file is open for read/write operations 
(OPEN "TESTFILE”;1,”F”’,A$), a pointer in the 4907 
firmware indicates where the next item to be read / written 
is to occur. When a program fails after reading part way 
through a file, the user should type INIT. This resets the 
pointer to the beginning of the file and closes it, keeping 


the original file intact. If a CLOSE is typed instead, the 
4907 will write an end-of-file mark at the current pointer 
location and close the file. Everything between the pointer 
and the end of the original file is lost. This problem does 
not occur if the file is opened in read-only or update access 
modes. 
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Renumbering Doesn’t Update 
Everything 


When a RENUMBER statement is executed, the target 
lines of any CALL statement are not updated. 


For example: 


2508 CALL "BAPPEN", 3508 
2510 CALL "LINK", 45e8 


3500 REM (3500 is target line for BAPPEN) 
$508 REN (4500 is target line for LINK) 
RENUMBER 

CIS 


100 CALL "BAPPEN", 3500 
118 CALL "LINK", 4500 
120 REM 


(120 is new target line for BAPPEN) 
130 REM 


(130 is new target line for LINK) 
Note that both target lines in renumbered statements 100 
and 110 still retain the original line numbers. 


Renumbering Might Update Wrong 
Line 


If you have code that references non-existent lines, before 
renumbering either insert those lines or renumber with 
higher values. This program illustrates results of not 
paying attention to this detail. 


(line 110 is non-existent) 


147 GOTO 110 Pa 


231 REM Function A 
REN 108,18 


100 GOTO 118 
118 REM Function A 


(still refers to original target line 
110 but now it’s the wrong target) 


Then, after more coding, you follow with another 
renumber: 


REN 200.10 


208 GOTO 218 
210 REM Function A 


(original target line number 110 
vanishes to be replaced with wrong 
line number leading to wrong 
target) 


If the initial renumber had begun with a line number 
higher than the non-existent target line, the original target 
line number would have remained: 


(line 110 is non-existent) 


ay ee tie Pe al 


4 
231 REM Function A 
REN 280,10 


200 GOTO 118 
218 REM Function A J 


(still non-existent but number intact) 


Or, retain correct target by inserting line 110 as a 
REMARK statement to hold it prior to renumbering: 


(line 110 is non-existent) 


GOTO 119 pme 


147 
231 REM Function 4 
116 REM Hold Taraet Line 


REN 100,10 
100 REM Hold Target Line 


118 GOTO 1800 
120 REM Function A 


(different number but correct target) 


a 
Note: BASIC EDITOR and Formatted Listings #1 of the PRINTER 
PROGRAMS, both contained in PLOT 50 General Utility Programs, 
will tell you if you have any non-existent line references. 
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Variable Symbols Are Not Deleted 


Once a simple variable symbol has been entered into 
memory, it always takes up at least 13 bytes of space (Sin 
the table listing and 8 for the number). A DELETE of a 
variable will eliminate the value assigned to that symbol, 
but the symbol will remain in the table and the space will 
be reserved for the number. To save memory, re-use these 
symbols for new values when the old are no longer 
needed, rather than assigning new symbols. 


Rather than using the new variable J, the variable I could 
have been reassigned. As it stands in the example, I and J 
are both in the symbol table, with only one being used. 
Refer to page 4-8 in the 4051 Graphic System Reference 
Manual for more detail. 


For example: 


@ FOR I=1 TO 8 
318 GOSUB 788 
NEXT I 
FOR J=1 T0 5 


GOSUB 988 
350 NEXT J 
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Two-Character Variables Desirable 


Using two-character variable names might save time if 
you plan to edit your program using the Editor ROM or 
an editor program.* Whereas, searching for a single 
character variable will result in unwanted text being 
picked out, searching for an alpha character coupled with 
a numeric will usually locate the desired variable. 


*5//00-8007/0, Text Editor, in the 4051 Applications Library, or 
4050408 BASIC EDITOR contained in PLOT 50 General Utility 
Programs, are two such programs available. 
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Verifying Ensures High 
Quality Tape Recording 
Surface 


A note from David Bruning of Lockheed Electronics, Las 
Cruces, NM, discussed verifying a tape prior to collecting 
critical data. His suggestions prompted the following 
article. 


Even though most vendors certify their tapes, it might be 
a good idea to verify them again if the data to be recorded 
is critical. Also, if you are going to resurrect a used tape 
you can verify it to determine its condition. 


Understanding a tape verification means understanding 


how the 4051 MARks a tape. A marked file consists of 
several 256-byte! physcial records with small gaps 
separating each bit, each character and each record. 
Between the files are larger gaps of about 31⁄4 inches. 


MARking a tape its full length, printing and reading 
(INPut) a test pattern verifies only 57% of the tape. To 
check the gaps, the tape must be re-MARked into files of 
varying sizes and the test pattern again printed and read. 
Also, simply printing to the tape won't verify it. It must be 
read to take advantage of the 4051’s checksum feature.” 


The 4051 checksum adds all of the data bits ineach record 
and prints the total as the last byte on that physcial 
record. When the data is read, the 4051 again sums the 
bits in each record then compares that total to the last 
byte on each record. If these totals are not the same, it 


tries 9 more times to read that record and come up with 
the same total. If the totals still don’t agree after the 10 
reads a read error is generated. 


However, as Mr. Bruning points out, before throwing out 
the tape (or returning it to the vendor if new), clean your 
tape head and run the program again. Often a tape will 
verify on the second try. 


It is important to realize that all data and program files 
existing on a tape are destroyed during the verification 
process. 


Inter-record gaps 
| 


l l | 


Records Inter-file gap 


During the verification process, the tape may run off the 
spool. This could mean a bad tape window or no BOT- 
EOT tape signals. Repeated occurrences with different 
tapes may indicate a hardware problem in the tape unit 
and you should contact your local Tektronix Service 
Specialist. 


If writing a tape verification program sounds like a lot of 
work, don’t despair. Tektronix PLOT 50: General Utility 
Programs, Volume 1 has sucha program. It verifies a tape 
in about 25 minutes. If you want more information on this 
and the many other programs in this package, call your 
local Sales Engineer. 


Mr. Bruning sent in the handy Error Message and 
Recommended Action table which he had compiled for 
their program. It applies to the PLOT 50 Verification 
program as well and should prove useful for many users. 


ERROR 


MESSAGE WHAT TO DO 

53 Read/ write error. Clean recording 
head of the magnetic tape unit; try 
again. If second attempt results in 
same message, don’t use the tape. 

54 EOT has been reached. This is a 
short tape; return it to the vendor. 

56 Tape is SAFE. Rotate the lockout 
plug and try again. 

57 No tape. Insert a tape and try 
again. 

63 Header error. Try cleaning the 
tape head and run the program 
again. If it aborts a second time 
with this same error, there may be 
a machine malfunction. Contact 
the key operator. 

Tape winds 

one end off 

of spool (no 

error 

message). Bad tape window, or no BOT- 


EOT tape signals. Return tape to 
vendor. Repeated occurrences 
may indicate a hardware problem 
in the tape unit. Contact your local 
Tektronix Service Specialist. 


For more information see pages 7-89 to 7-93 in your 4051 
Graphic System Reference Manual. Page 2-15inthe 4051 
Graphic System Service Manual Vol. 1 (part number 070- 
2065-00) graphically illustrates tape marking. 


1128 byte records may be marked for compatibility with the 
TEKTRONIX 4923. 


*The checksum error checking technique may be changed to allow 
reading of tapes which were recorded without using this feature. 


ee 
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Cyciing 
By Jack Gilmore 


Often only a portion of a tape is recorded with files and 
used. With time this will cause irregular stacking of the 
tape because of temperature variations and physical 
shock. A simple technique will cycle the tape resulting in 
an evenly stacked tape once more. 


FINd n (n is the last file on the tape) 


MARK 1, 400000 
(large enough to reach end of tape) 


The 4051 will reach the end of the tape, rewind it and print 
error message 54 to the screen. At this point, you may 
want to restore the last file. 


FINd n 
MARK 1,1 


(find last file again) 


(this will put a LAST file back on 
the tape) 


The tape is now ready for continued use. 
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Memory Full 
by Ed Mitchell 


During program operation or debugging, you may have 
encountered a MEMORY FULL error. This error is 
generated when the 4051 sees it is out, or nearly out, of 
user memory. The system was designed to give the 
operator a warning prior to using all of memory so that 
corrective action could be taken. The amount of memory 
left when the error message occurs may vary, and depends 
on how the error was generated. If a MEMORY FULL 
error message is generated and the correct action is not 
taken, the only recourse may be to cycle the power with 
loss of the program and variables. The actions which 
should be taken when a MEMORY FULL occurs are as 
follows: 


1. If possible, delete a variable. 

2. Type “END”, which recovers all memory which 
was allocated by "FOR NEXT Loops’, etc. 

3. Save the program on tape or disc. 

4. Save the variables if necessary. 

5. Enter MEM (which will compress memory and 
return the amount of free space). 


If the MEM command returns a significant number of 
bytes, check your program for ”FOR NEXT” loops which 
may have been branched out of and never completed, or 
function key and GOSUB operations not terminated with 
RETURN. 


If your program is just too large, you might. consider 
appending or linking sections of the program. 


i, 
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Take Care of Your Tapes 


Before growling at your 4051 when read/write errors 
occur, take a look at how you treat your tape. Is it packed 
around in the rear window of your car, frying in the 
summer heat, and then expected to perform? Or is it 
locked in the trunk at -10°, numb clear to its last byte? In 
any case, a tape should be acclimated to the operating 
temperature for several hours if it’s been stored in an 
environment that’s colder or warmer. Like most inert 
objects, its parts expand and contract with temperature 
swings. Wide temperature variations can also cause 
creases ona tape. And, at higher temperatures (but below 
113° F), the number of passes a tape can handle goes down 
significantly. After conditioning the tape to the operating 
temperature, cycle it (wind and rewind) to correct any 
tension problems and minimize creases. 


Cycling a tape also takes care of any stacking problems. 
Shocking (dropping or hard jostling) sometimes happens 
when shipping tapes, causing uneven stacking of the tape. 
Consequently, the tape does not pass over the read head 
at the proper angle, resulting in errors. When writing on 
an improperly stacked tape or poorly tensioned tape, data 
may be recorded but it may not be readable after the tape 
is cycled. Note the program tip Cycling for an easy check 
on used tapes. As described in TEKniques Vol. 1 No. 7, 
cycle new tapes with FINd 2. When the error message is 
printed on the 4051 screen, press the rewind key and the 
tape will be ready for use. 


Also, remember that tapes leave an oxide deposit on your 
machine’s read/write head. Clean the head every couple 
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of months with a cotton swab moistened with isopropyl 
alcohol. 


A final caution—don’t store the tape cartridge inthe tape 
drive. Flat spots can occur on the rubber drive roller, 
which will generate noise and may cause occasional tape 


slippage. 
Tektronix uses and sells only tapes certified by the 
vendor. However, if they are mistreated, their ability to 


properly function drops. 


Specifications on Tektronix Data Cartridges: 


5° to 45°C Operating temperature with data 
on the tape. (41° to 113°F) 

-40°to45°C Non-operating temperature range 
with no data on the tape. 

20% to 80% Non-condensing humidity range. 


In short: Cycle new and old tapes, store and use them in 
an office environment, clean the tape heads frequently, 
and use certified tapes. 
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Structuring the Tape Directory 


by Bernard Taieb 
Datatek 
Badhoevedorp, The Netherlands 


File | is often reserved for a directory of tape contents so 
that when the AUTO LOAD key is pressed, a list of the 
contents of the tape is displayed. The user then may input 
a number and the directory program will find the correct 
program and load it. 


If the tape contains data files and/or files which are not to 
appear in the directory, then, since program file numbers 
are not consecutive, “messy” logical lists can occur in the 
directory program. Here is a suggestion which eliminates 
this problem as well as making it much easier to update 
the directory program when adding new programs to the 
tape. 


FER-DIRECTORY PROGRAM <FILE 1?) 

DIM F¢4@> 

DATA 3, 4,3,6,?,9,12,1s1s1s1s1sis1sisisisíisisi 
MIR driotsisdoisisis1s isisisi, isisisi 
REM LIST OF PROGRAMS AVAILABLE 

PAGE 


"1... PROGRAM A" 


100 
110 I 
120 
130 
140 
130 R 
200 
210 
220 P 
4 


. 
. 


pienter Program No.:G" 
<1_OR F1>4@ THEN 300 
FCFI> 


As can be seen, this directory refers to a tape where 
Program A is in file 3 and Program B is in file 4. Each file 
number is contained in line 130 as a DATA statement. 


If you enter ’3’ as a response to the question in line 500, the 
file which is found in line 530 is the third number in the 
DATA statement, i.e., file 5. 


If you enter a number which is outside the range of 1-40, 
then the question in line 500 is repeated. If you enter a 
number that’s in the range 1-40 but is not in the directory 
(in this example, numbers 8-40), then the directory 
program is re-loaded since these programs are not 
available. 


In summary, lines 130 and 140 contain the program file 
numbers in the order in which lines 200—280 list the 
program. Updating is now a simple procedure. 


To add Program H to the directory (or menu), if program 
H is stored on file 18, change line 130 to read: 


138 DATA 344555657 sFpL2p 18s dele do dodo dy dodo ds ty dy 


and add line 290: 


298 PRINT “8,..PROGRAM H" 


For users with a binary ROM, certain files may well be 
binary programs. In this case, when updating lines 130 
and 140, put in the file number for ASCII programs but 
add 100 to the file number for binary programs. So, a 
binary program on file 20, lines 130 or 140, would contain 
120 as the file number. Also include: 


Te IF F(F1)>100 THEN 600 


l 
600 FIND F(F1)-100 
610 CALL "BOLD" 


ŘŘŘŘŘŘŘŘŘŘŮŮŮŮĖŮĖŮĖ ee 
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GIN Program Tip 


The GIN command returns coordinates expressed in 
User-Definable Units. The INP command with secondary 
address of 24 returns coordinates based on Graphic 
Display Units. 


As a quick check of the difference, key in the program 
below, run it, and note the printed values of X and Y.* 


Now, change line 130 as below and once again note the 
values of X and Y.* 


*It is unlikely that values returned by these commands will-exactly 
match the values in the DRAW command (UDU 25,25 and GDU 65,50 
in these cases). The accuracy is determined by the resolution of the 
graphic device being addressed. For further discussion on this see page 
1-60 in the PLOT 50 Introduction to Graphic Programming in BASIC 
manual. 
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Hidden Line Algorithm 
by Will Gallant 


This is a one line hidden line algorithm for function 
plotting or nearly any cross section data. This algorithm 
generates a “propogating horizon.” That is, a foreground 
section is plotted and saved as a horizon. Then the next 
section is compared to the last horizon and only the parts 
that stick up above the last horizon are plotted. A new 
horizon is saved and the process repeats till all cross 
sections are drawn. 


The MAX function is used in this example to compare a 
cross section to the old horizon and generate a new 
horizon. Shown below is code to plot a sine wave function 


“propogating” up the screen by a fixed interval. In 
practice, the function could be empirically observed 
statistical data, and the vertical propogating unit the time 
between readings. Plotting contours of terrain are just as 
easy, with stations analogous to the vertical screen 
increment. 


To view large dips under a function, start a little higher on 
the screen, add a second horizon, and use the MIN 
function. 


REN SANPLE CURVE GENERATOR 
= ENTER DEVICE CODE : "3 


PRINT 
INPUT 


PAGE 

UIEWPORT 18,122, 18,82 

AXIS @2:16,18 

MOVE @2:20,110 

PRINT @Z:"CURUED FIGURE WITH SIMPLE HIDDEN LINE REMOVAL" 
WINDOW 0,60,-5,5 

UIEWPORT 20, 120,20,80 


K=-5 

SET DEGREES 

DIM XC60, YCEO>, H60? 
H=-10000 

FOR I=1 TO 48 

FOR J=1 TO 60 

XC Jed 

VQ JD=SINGL. 24548. SH IKT +K 
NEXT J 


H=Y MAM H 

MOVE @2:X¢1)>.HE1> 
DPAH @2:X%.H 
Kkak+8.175 


NEXT I 
PRINT “GGGG" 
EHO 


L I I  I I II  I IIIIaIllŘŘňĖ—— 
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Tablet Input and Pointer Routine 
Displays Pen Location 


by Ed Mitchell 


Use this routine in 4051/4956 digitizing applications 
when you want to see your pen location displayed on the 
4051 screen for menu control, placing objects or point-to- 
point digitizing. Set the Tablet Controller to STREAM 
SWITCH mode. This allows the 4051 to execute an input 
instruction and display the location of the pen. Note the 
“debounce” section ofthe routine which eliminates 
multiple entries of the same point. 


Lines 130 through 160 set the Graphic Symbols font and 
set the 4051 window to the maximum tablet coordinates. 


Lines 170 and 180 move the pointer to the present pen 
location and display a “refreshed” cursor. Line 190 checks 
if the pen (or one of the cursor buttons) was pressed. If it 
wasn’t, another input and cursor operation is performed. 
If a switch was pressed, “dummy” inputs are assigned to 
X1.Y1 until the penis released (status in Y$). This ensures 
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that only one value (the first assigned to X,Y) is accepted 
as the digitized point. 


Lines 240 and 250 are optional and are used to return the 
true GDU location. INPut @32,24:X,Y performs the 
same function as the GIN command, however, true GDU 
locations (0 to 130 and 0 to 100) are returned rather than 
the “window” location. 


Lines 260-400 contain a routine that may be used with the 
Three-Button Cursor. It decodes which button (flag) was 
pressed and branches to the appropriate routine. 


ROUTINE TO POSITION A CURSOR 


228 GO TO 

230 REM FOR @ TO 4000 BRANCH TO 260 
240 MOVE X,Y 

258 INPUT @32,2 


4X 
260 REM aseashssaesasyseess DECODE SWITCH sapeneassssenssens 
G26 ’ 


270 GO TO LOTCUAL(Z$)>-LGT 1 OF 298, 380,390 
288 REM LINE 270 USED FOP 3 BUTTON CURSORS 
298 REM SWITCH | PRESSED 
300 PRINT “@* 
310 GO 10 160 
328 REM FLAG 1 PRESSED 
330 PRINT "1" 
348 GO TO 168 
35@ REM FLAG 2 PRESSED 
PRINT "2" 
378 GO TO 160 
38@ REM FLAG 3 PRESSED 
390 PRINT “3° 
400 co TO 160 


ee 
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Finding the Size of an Array 
By Ed Mitchell 


Did you ever dimension an array and then forget how 
large it was? The SUM function is one way to find out. 
For example, B is a dimensioned variable with unknown 
size. To find the size, set all elements of B equal to | and 
sum them: 


The number returned is the number of elements in array 
B. 


Note: This operation replaces any data in array B with 1’s. 
5 Ea, a e E EN OE aL 
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Default Response on be assigned to P. (Note the underline coding in statement 
1000 indicating the default response.) 
NO Branch 
by Bernard Taieb Her PRINT aoe YOU WANT TO CONTINUE (YESHHH___OR NO)? "3 
Datatek 1328 are aT 1008, 3880, 1900 
Badhoevedorp, The Netherlands 2009 Gen YES PROCESSING 


38@0 REM NO PROCESSING 
In a POSition function a null string returns the location 
where the search began. In the case of P=POS To default to NO processing, simply change the default 


(“ABCDEF’,A$,4), if A$ is a null string, 4 will be assigned underline in statement 1000, reverse the string in state- 
to P. ment 1020 and the target lines in statement 1030. 

Turn this to your advantage using RETURN as a default ieie INPUT age YOU HANT TO CONTINUE (YES OR NOHH__>? "y 

response when branching on a YES/NO reply. Pressing EH EO T8 Pok 3006, 1000, 1000, 2000, 1000 

the RETURN key without an entry assigns a null string to $00 REN NO PROCESS TARE 


the target string variable. Therefore, if you pressed the 
RETURN key in response to the question in statement 
1000, you would branch to statement 2000 since a 1 would 
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4907 Secret File Handling *Invalid operation on tape file. 
by Chuck Eng **Valid operation on tape file. 


A useful table provides at-a-glance information for 4907 
secret file handling by the 4051. 


ASCII ASCII BINARY BINARY 
Unsecret Secret Unsecret Secret 
File File File File 


APPending to Ursecret 
Program in 4051 


VALID INVALID** VALID 


VALID INVALID** VALID 


APPending to Secret 
Program in 4051 
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ee 
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Storing Strings in Binary 


by Virg Tomlin 


One long string, accompanied by a pointer array that 
identifies word separations, can serve as a pseudo string 
array when filing lengthy lists of people or things. 


However, while string length seems only limited by 
available memory, strings to be stored on tape ina binary 
file are limited to 8191 characters (about 113 full lines) 
because of the 16 bit header that accompanies each entry. 
The first 3 bits identify the type of data and the last 13 
indicate its length (2!3-1=8191). Lengthy files can be 
broken conveniently into segments of 100 lines each. 
Store each segment in a separate data file rather than 


stringing them out in one file; storage and retrieval are 
then faster and simpler. 


String length limit does not occur using an ASCII data 
file. However, carriage returns (CHR(13)) embedded in 
the string won't allow the string to be INPut from an 
ASCII file in one long string. The string will delimit when 
reaching the Carriage Return. 


ne 
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Avoid Moving Lines of Code 
Containing DEF FN or ON THEN 


The DELETE command and using the edit keys can move 
lines of code. When a memory compress occurs (whether 
generated by the 4051 system or the program), the 
program in memory will be relocated as a result of these 
previous commands. This relocation affects two 
statements: the DEF FN and the ON THEN. When a 
statement containing a DEF FN is executed, an internal 
pointer is set indicating the location in memory of that 
function. Likewise, the pointer to the location of the 
target line of an ON THEN statement is set when that 
statement is executed. 


When the program is relocated in memory because of 
memory compress, these two pointers will no longer show 
the proper location. Thus, when either DEF FN or the 
target line of an ON TH EN is later referenced, a system 
error may be generated because the 4051 can’t find the 
correct function or target line. For example: 


99 DELETE A 100 REN 

100 PRINT “START” 110 REM 

101 REM 120 REN 

102 REM 130 REM 

103 REM 140 REM 

110 REM 150 DEF FNACA)=2 

120 ON SRO THEN 180 160 A=2 

130 WAI 170 REM 

140 DELETE 101,183 18@ REM 

150 DIN AC35e8> 198 REM 

160 PRINT MEMORY 200 REN 

17@ GO TO 13 210 ASFHACAD 

180 PRINT "SROQG" 220 DELETE 100,140 

190 POLL M, Hi4 230 PRINT FNACA) 

209 RETURN 240 M=MEMORY 
250 B=FNACA? 

RUN 260 END 

START 

SRO RUN 

1899 2 


SYSTEM ERROR - MESSAGE NUMBER @ - 7F9F BC3@ 981B 68 00 80 00 
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Therefore, try to locate these statements in lines which 
won't be moved. If that’s not possible, you'll have to re- 
define them: 


100 DEF FNACAD=2 99 DELETE A 
118 A=2 100 PRINT “START” 
120 REM 110 REM 
130 REM 120 REM 
140 REM 130 REN 
150 A=FNACAD 140 ON SRQ THEN 220 
160 PRINT FNACA) 150 HAIT 
170 DELETE 100,140 160 DELETE 110,130 
180 M=MEMORY 170 DIM A(3500) 
19@ DEF FNACA>»2 180 Me=MEMORY 
208 B=FNACAD 198 INT “hy 
210 PRINT B 200 ON SRQ THEN 220 
220 EHD 210 TO 150 

220 PRINT “SRQG” 
RUN 238 POLL M,Wi4 
$ 240 RETURN 

RUN 

START 

SRQ 

SRQ 

SRO 


“Sa ae eee SSE LY aS ay 
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Pause and Continue Using the 
Function Keys 


by Ken Cramer 


Often it is necessary to put a pause into a program for 
viewing some display on the screen. Usually the pause 
times are some optimal value and variations are required. 
This is one solution which can be invoked by the function 
(UDK) keys. 


1 SET KEY 
N=20 


23 REM PAUSE LOOP- ae IS NUMBER OF SECONDS 

24 FOR N9=1 TO 220 

25 NEXT Hy? 

26 RETU 

8 pen CONTINUE ~- SET N9 LARGE TO EXIT LOOP 
2 =l. 


Pressing UDK #6 will initiate a timing delay of N seconds. 
The timing delay loop can be exited by pressing UDK #7 
which sets variable N9 arbitrarily large and effects an exit 
from the loop. 


If N9 is used as the loop counter for other timing loops the 
continue UDK #7 will exit any timing loop within the 
program. 
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Recovering ASCII Programs Saved 
With Alternate Delimiters 


by Ted Webber 
Laurie Montgomerie & Pettit Pty Ltd 
Sydney, Australia 


Listing a program to an external printer, the following 
commands might be given: 

FIND 1 

OLD 

PRI _@37,26:1 

LIST @1: 
Then some editing might be done on the program which 


you save but forget to reset the environmental parameters 
(PRI @37,26:0). 

FIND 1 

SAVE 


Later, you wish to access it: 


Now you receive the error message: 
NO PROGRAM FOUND - MESSAGE NUMBER 59 


or a syntax error, depending on your environmental 
status. 


Examination of the memory contents may show that the 
first line of the program has been loaded. The problem is 
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caused by having inadvertently saved a line feed (CTRL- 
J) at the beginning of all subsequent lines. What can you 
do? 


Three solutions are possible depending on your equip- 
ment. The Editor ROM gives the easiest as follows: 
(Make sure parameters are 37,26:0) 


CALL "EDITOR" 

F1 

[e] 

R 

A ii ae Rae 
SA 

FIND 1 

OLD 


.. and the program loads, no worries! 


No Editor ROM? A small program will delete the 
unneeded line feeds (CTRL-J) and keep your program 
intact. 


The problem does not arise if your program is stored on 
binary format, using the Binary Loader ROM and CALL 
“BSAVE”. 


M$=CHR(13> 

DIM B$(80); ASM SHOR = -300> 
PRINT “WHICH FI 

INPUT ig 


FIND 

ON EOF 6@> agit’ 220 

INPUT @33:A 

INPUT @33:8 Bs 

BS=SEG(BS, 2,100) 

198 BS=bsens 

@ AF=REPCBS, 1+LENC AS), O> 
GO TO 178 


229 FIND J 
PRINT @33:A$ 
END 


Sl 
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INTEGER Function 


by Robert G. Huenemann 
United Airlines 


The INTEGER function doesn’t always return results 
that agree with the value displayed on the graphic screen. 
For instance, A=.1 * 10 and B=INT(A). B is equal to 0 
while A is equal to 1. Using the STRING and VALUE 
functions prior to the INTEGER function will result in 
agreement: 


A=.1418 
AS=STRCAD 
Be INTC UAL CAS) > 


B will now be returned as 1. 


Ed Mitchell of Tektronix explains the reason for these 
differences: The 4051 is a binary machine. Therefore, 
internally .1 * 10 is represented as .99 . . . 9 (actually 
FFFFFF,, ). When a number is printed to the display, it is 


rounded at the 12th place, which in this case will result ina 
1 being printed. However, the INTEGER function 
returns the largest integer without exceeding the value of 
a number and does not round a number. 


Dan Taylor suggests setting E@=1E-12, then 
INT(A+ABS(A) *EQ@) which is a “fuzzy” INT(A). This 
could also be used as a function: 


DEF FNICAD=INTCA+ABS(A)XEBD 


Use the FNI instead of INT. It might be easier than the 
STRING and VALUE above, and is almost the same 
speed. 
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Never Branch to REMark Statements 


by Dan Taylor 


Often all REMark statements of a program are 
eliminated to save space. If the program contains 
REMark statements at a branch entry, they'll be deleted 
leaving invalid target line numbers in the branching 
statements. For example: 


50 GOSUB 4000 


000 REM Begin Driver Routine 


— m i o [l pd u l 


If statement 4000 is deleted, the target line in statement 
150 is invalid and will result in program abortion. 


Also keep in mind that pressing a User Definable Key is 
the same as executing a GOSUB statement; program 
control is transferred to the line number which is four 
times the key number. So avoid REMark statements on 
lines numbered 4*n. Put them at 4*N-1. 


i 4 REM Driver Routine 
Instead of: 5 GOSUB 6008 
l 
REM Driver Routine 
GOSUB 6000 


Use: 4 
| 
| 
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Using the 4051C01 
by Bob Haas 


The TEKTRONIX 4051C01 implements IBM Binary 
Synchronous 2780 protocol, allowing high-speed error- 
free communication between the 4051 and IBM host 


computer systems. TEKniques Vol. 2 No. 3 discussed its 
capabilities and advantages. Here we'll use the 4051C01 to 
submit a job to a host computer, process the job, and 
return the job output for graphing on a 4051. The 
application is a simple one, but it contains all the steps 
necessary to implement any application. 


You can use the 4051C01 by entering individual 
commands through the 4051 keyboard, executing eachin 


immediate mode. However, it’s much easier to use a 
BASIC program on the 4051 that contains commonly- 
used 4051C01 functions, all invocable by User-Definable 
keys. Portions of such a program are illustrated. Changes 
will likely be needed to adapt the program to your own 
application and the host computer operating system. 


The first portion of the program is shown in Fig. 1. It 
assumes that the program will be file 1 on a tape and will 
be autoloaded. The first three statements initialize the 
4051C01, print a message to the 4051 screen, and return 
control to the 4051 keyboard. 


INT *@UTOLOADED® 
$ Bee o INI". NI RI, P1 EO. 


Fig. 1l. First portion of 4051C01 interfacing program. 

The next step is to establish communication with the host 
computer. If the 4051C01 is connected to a dial-up 
modem, dial the host computer modem number, wait for 
the answer tone, then place the local modem in ”data” 
mode. 


You can now transmit the “sign-on” message. The 
manager of a host computer system assigns each remote 
terminal an identifying number, and the sign-on message 
must contain this number. In the example, the host 
operating system is an IBM VS2/JES and our terminal 
(4051) is remote 5. 


The BASIC statements necessary to sign-on are shown in 
Fig. 2. In this case, the sign-on message is 80 characters 
long because it must contain a password (required by the 
host operating system) in columns 73—80. Pressing User- 
Definable key 1 invokes sign-on. File 2 is found and 
transmitted to the host using the CALL ”CO1MTR” 
function. File 2 contains only one record of data—the 
sign-on message—which was created by statements 
1000—1040 executed previously. 


“5 
COITEST * 


4 
s 
6 
? 
L 
1 
1 
1 
1 
i 
1 


Fig. 2. Statements 4 through 7 transmit sign-on to host. 


Statements 1000 through 1040 must be executed prior 
to sign-on. 


If the sign-on message is less than 57 characters (the 
maximum allowed in a PRINT literal statement), it could 
be sent using the following BASIC statements: 


REMOTES” 


pr etercua *"/8SI1GHON 


(Device number 59 in statement 4 assumes the 4051C01 
interface connector is plugged into the right backpack slot 
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of the 4051. Device number 49 would indicate the left 
slot.) 


The next step is to transmit the job to the host. In this 
example, the job is a simple FORTRAN program which 
calculates 200 sine and cosine values. The program and 
the BASIC statements required to transmit it to the host 
are shown in Fig. 3. 


8 PRINT 
9 GO TO 


“FN KEY 2" 
8800 


8090 REN FORTRAN "APPLICATION" 

PRIN T 033: 77u49 SIF JOB PATA BOD; OLAGS G" 

9: STEP exer Foe TGCL 
i78, i tt DD $ 

: ZINCa3, 141592657100." 
DO 100 1=1,200" 
XaSIN(Z)" 
Y¥=C08(3.@%2>" 
=Z+ZINC" 
WRITE (7,200)X, Y" 
FORNATCIK,2F10. +6>" 


INT @39: 
thy ies soa: ReaD FT@7F@81 DD SYSOUT=C* 


R 
ALL EES 
ETURN 


Fig. 3. Pressing User-Definable key 2 transmits the 


FORTRAN program to the host. 


The text of the program appears in a series of 
PRINT@59: statements. This is a convenient way to enter 
and edit a small FORTRAN program since the editing 
features of the 4051 can be used to edit the FORTRAN 
program simply by editing the PRINT@59: statements. 


Another application might consist of fixed program 
statements and/or Job Control Language (JCL) followed 
by variable data, perhaps from a tape file, and terminated 
with more fixed JCL. A BASIC program to do this would 
be coded as follows: 


110 PRINT @59:"--STEP 1 EXEC ..... Preceding JCL as required 
| 

| 

200 FIND n file "n" contains the data 
210 ON EOF ae TREN 308 

220 INPUT @33 

230 PRINT @59: as transfer to C01 

248 GO TO 220 

308 PRINT @59:"-%"* transmit required ending JCL 
310 PRINT @359:°77" 

32@ CALL "C@ICLO" send end of transmission 
338 RETURN 


If file ”n” on the tape ended with terminating JCL, 
statements 210 through 330 could be replaced with a 
single CALL ”CO1MTR”. COIMTR automatically calls 
”C01CLO” when the end-of-file mark on the tape is read. 
Since we assume this was not the case, an INPUT@33:, 
PRINT@59: loop was required to transmit the data 
followed by additional PRINT@59: statements to 
transmit the ending JCL. If several tape files were to be 
joined and transmitted as one host job, additional 
INPUT@33:, PRINT@59: loops would be required. 


To transmit this job change statement 9 to: GO TO 110. 


After a sufficient time has elapsed for the host to process 
the job, the output will be returned. The returned output 
will include a log of activity, accounting information, 
and, in the first case, a listing of the program produced by 
the FORTRAN compiler. This printed output will be 
directed to the remote terminal printer. 


In statement 8100 the data output is directed to 
FORTRAN logical unit 7. In statement 8135 a JCL 
statement directs FORTRAN unit 7 to output class ”C”, a 
remote terminal punch on this particular host computer. 


In general, printer output is less predictable, hence harder 
for the remote user to control, than punch output. 
Therefore, data to be processed by a 4051 BASIC 
program should be directed to the remote terminal punch. 
Of course, the 4051C01 must be defined by the host 
computer system manager as having both a punch and a 
printer. 


16 PRINT "FN KEY 4" 
17 GO TO 9000 


9000 REM RECEIVE TO TAPE (PUNCH) AND SCREEN (PRINT) 
9010 ON EOF (9) THEN 9388 


scs 
50), C8150) 
UT 059:B8 


gis id 
t they 9200 


1) 
EN(B$)-2) 
EN 9220 


2 
9230 GO TO 9050 
9300 PRINT "S&% END OF TRANSMISSION S428" 
9318 RETURN 


Fig. 4. Pressing User-Definable key 4 will input data from the 


host and send it to the tape (statement 9110) or to the 
screen (statements 9200 and 9220). 


In the 2780 protocol used by the 4051C01, the host 
prefixes each data record with a two-character sequence, 
consisting of an ESCAPE character (hexadecimal 27 in 
EBCDIC, translates to 1B in ASCII) and a destination- 
designating character. Records destined for the remote 
terminal punch have a ”4” as the second character. Figure 
4 shows the BASIC statements necessary to receive data 
from the host, and to separate the punch from the printer 
data. All punch records are sent to file 4 of the tape, and 
all print records are sent to the 4051 screen. (It is assumed 
that no permanent copy of the printer output is to be 
made.) 


Now you can signal the host computer that its services are 
no longer required by transmitting a “sign-off” message 
and breaking the data connection (hanging up the phone). 
Figure 5 shows the statements that accomplish the sign- 
off, invoked by User-Definable key 5. 


T “FN KEY 3° 
T @S9:°/SSIGNOFF ° 


*C@ICLO® 


Fig. 5. This portion of the program signs off from the host. 


It is assumed that the data received from the host is to be 
processed “off-line”; that is, not while the data connection 
to the host is still established. The data could be graphed 
by the 4051 while it’s being received, but it is more likely 
that several BASIC programs will process the data. This 
would require that the data be stored on tape. 


59 


6.844327 -0.992114 
868 -0.999386 


© 

o0 
oN 
NSH 
HEER 
btth ba 
ė 


SLS°3 
eu 
N 
N 
à 


222% 


Fig. 6. Data returned by the FORTRAN program. 


4 


- 


T @33: As 
T @33: As 
OF <@> THEN 18110 
ORT 15,115,0, 100 


-ls ts-i;i 
T 50,130,0,80 
IXY 


nad 


arene 
e 


ee ne ee mt ee 
U 


3 


Fig. 7. 


A sample of the data returned by the FORTRAN 
program is shown in Fig. 6. The BASIC program to plot 
the data is shown in Fig. 7. This host computer system 
punches two “separator” cards between each job’s 
punched output to aid a 2780 operator in separating job 
decks. These two records are discarded by BASIC 
statements 10010 and 10020. It’s possible to suppress the 
generation of these separator cards by the following 
statements: 


Program to plot the data in Fig. 6. 


400 PRINT @59:"/88T RNS.PUL, 8N" 
418 CALL "COICLO* 
420 RETURN 
These statements must be executed after the sign-on and 


before submitting the job to the host. 


Now you have an easy-to-use 4051 BASIC program 
to send a job to and receive output and data from 
a host computer using a 4051C01 Synchronous 
Communications interface. 
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Fast Random Arrangement of a 
Data Set 


by Ralph Deutsch 
Deutsch Research Laboratories, Ltd. 
Sherman Oaks, CA 


Experiments and card games are two areas of application 
for random data. The following technique quickly places 
a set of positive integers in random order without 
duplicating prior selections. The scheme works equally 
well for data sets having a multiplicity of the same value. 


For this example, statements 180 through 200 generate a 
data set of numbers | through 64. Data sets could be 
generated using DATA and READ statements as well as 
many other ways. 


Statements 220 through 250 convert the data to four 
character segments and fill the string A$ with the data. A 
loop is then employed to randomly select data from the 
string. 


L represents the number of data segments. Each time 
through the loop the range of segments is adjusted 
downward (STEP -1 in statement 280). 


Statement 290 generates a random number within the 
data set range. Statement 300 assigns a data segment to 
B$. The position of the segment in A$ is keyed off the 
random number after adjusting it to reflect the four- 
character nature of the data segments. Statement 310 
converts the segment to its original numeric value and 
assigns it to position L in array Y. Statement 320 then 
removes the segment from the string. 


Statements 360 through 430 print out the original data in 
array X and the randomly ordered data in array Y. 


(64), 764) 


ol 

230 AsesTREXc]) s100) 

240 SS=REPCAS,LENCS$)+1,8> 
NEXT I 


290 FOR L=64 TO 1 STEP -1 
290 earstes $e ISeRNdC Io +0. S>+1 


8 tK- 1)£4+1,4) 
-100 


I x Y I x 


8@ FOR I#i TO 32 

390 PRINT USING 400:1,XC1>sYCI), 1432, XC 1432), C1432) 
488 IMAGE 2(6X, 3D, 3X, 4D,3X,4D,2X) 

410 NEXT I 


430 END 


ponies oTe d EE a ae A ee S 
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Choose Your Delimiter 


by Ted Webber 
Laurie Montgomerie & Pettit Pty. Ltd. 
Sydney, Australia 


Do you have a program sending output to a peripheral 
requiring a CR/LF delimiter but you wish to retain 
optional 4051 screen output requiring only a CR 
delimiter? Incorporate the following lines of code into 
your listing routine; the proper delimiter will be set with 
minimum user input. Pressing RETURN without 
entering anything from the keyboard will default to the 
screen. 


1808 D#32 
1018 PRINT “OUTPUT TO SCREEN OR PRINTER? "J 
1020 INPUT 


$ 
H IF at OOREEN LE pal a a 1050 


1040 D=(Device for 


ere 
108350 PRINT 057,26: D< > 
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Menu String Saves Time The following routine compresses the menu listing into 
A$. Statement 360 then recovers memory. 
and Memory 


by Roger Chan 138 Din nec i800) 
USV Laboratories Division : 
USV Pharmaceutical Corporation 133 | 
Tuckahoe, NY 380 BS=CHRC! 


5 ner r keg > eauaL TO NUMBER OF DATA STATEMENTS 


Reduce display time and memory overhead by storing 
your menu in a string. Not only is printing a string faster 
than executing a series of PRINT statements, but 
elimination of the PRINT statements results in memory 
savings. 


350 NEXT I 

360 DELETE 188,360 
380 PRINT A$ 

390 

408 | 


DĚ 
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Consistent Plotter Window To return to the Plotter’s original page size, cycle the 
Plotter’s power or manually position the joystick and 
reset the lower left and upper right coordinates. 


by Robert Thomson 
Florida Solar Energy Center 


Cape Canaveral, FL (assumes the plotter is device 1) 


By appending the following lines of code into a program, PRINT "DEVICE? "3 
you can ensure consistent graphs or charts on the 4662 INPUT D 
Plotter. For example, we use the 4051 and the Plotter to Sur haat THER Pe 
produce collector efficiency plots which are then PRINT Pet set ” ower LEFTGGG" 
incorporated into test reports. Using this code, we can be INPUT D$ 
nfident that all plot directl ble. MOVE @D:124.5, 75 
confident that all plots are directly comparable PRINT *GGGSeT UPPER RIGHTGGG" 
The code locates the lower left and upper right page REM TARGET 


boundary coordinates in exactly the same spot every time 
a program is run ensuring the plots are the same size. This 
technique is simpler and more accurate than setting the 
boundaries manually. 


For standard paper placement on the Plotter, we have 
drawn a line approximately 2.25 inches from the left edge 
of the Plotter surface. All of our programs are coded so 
output will be directed to paper placed along that line. If 
you're running labels or plots on different size paper, 
simply change the coordinate points in lines 130 and 160 
to reflect the boundaries desired. 


CAUTION: The page size must be set only once; 
therefore, insert the code into an early portion of your 
program. If the code should be executed a second time 
without cycling power, press RETURN twice inresponse 
to lines 140 and 170; the 4051 will accept it as dummy 
input without changing the page size. Otherwise the pen 
will move to positions smaller than desired. 
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Correct Use of RND(-1) Therefore, pick a random starting point on the chain 
using RND(-1). Then use RND(1) to advance the random 


number generator. A simple loop illustrates these 
The (-1) parameter for the random number generator parameters: 


function (RND) should only be used to select a random 
starting point on the random number chain. Continued 
use of the (-1) parameter in a random number generator 
loop doesn’t even come close to yielding true random 
numbers. 


Although the target of the RND function is a chain of 
numbers, these numbers are linked together in a 


scientifically selected random sequence. Progressing Review pages 8-27 and 8-28 of the 4051 Graphic System 
through this chain from a starting point produces a close Reference manual for additional information on other 
approximation of truly random numbers. And its size of parameters which specify starting points. 

140 trillion numbers guarantees a wealth of starting 

points. 
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Close Data Files (D is device number for 4924) 

When WRiting or PRInting data to an internal tape file, 950 IF D<>33 THEN 900 
before you remove the tape be sure to end the operation are co TO 918 

with a CLOSE, END, or FIND command to ensure all ina PRINT #052: 


data is sent to the tape. When sending data to the 4924 

Tape Drive, execute a PRINT@4,2: (where 4 is the 

address of the 4924) at the end of a WRIte or PRInt Pages 7-23 and 7-24 of the 4051 Graphic System 

operation to close the file. If the file is not closed before Reference manual and page 2-14 of the 4924 Digital 

the tape is removed, some of the data will be lost. Cartridge Tape Drive Operator’s manual discuss these 
points in more detail. 


A PRInt command with a secondary address of 2 must 
not be issued to the internal tape. Therefore, include a 
small test in a program before closing a file: 
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Quick Array of Random Numbers RND Function on Array 
You can extend this technique to quickly produce an 
by Dan Taylor array of random numbers without using a loop. 


Statement 100 fills the array with l’s. In statement 120, 


Function Operation on Arrays the array is specified asthe parameter of the Random 


When an array is the parameter of a numeric function, Number (RND) function. Therefore, execution of 

the function is applied to each element of the array. The statement 110 applies the RND function to each element 
result must be assigned to another array of the same ofthe array and (in this example) assigns the resulting 
dimension (or the same array). In the following example, number to that element in the same array. 


array A, containing different angles, is the parameter of 
the SIN function.When this statement is executed array 
B will contain the sines of all the angles. 

DIM AC1S> 


100 
118 A=1 
120 ARNOA) 


BaSINCA) 
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PARSING A STRING 


by Carl Dawson 
Tektronix, Inc. 


The following subroutine will parse any input string for 
the items delineated by acomma, a space or an equal sign. 


Each call to the parser returns, in A$, the next text item. 
Multiple adjacent spaces are discarded and multiple 
commas or equal signs are returned as null text with a 
string length of zero. 


For example, the string ”"TEXT1,, TEXT2” would return 
”"TEXTI” as the first item, a null string as the second item, 
and “TEXT2” as the third item. 


As the input string, C$, is parsed, the test item returned in 
A$ is deleted and C$ condensed. A length of zero for C$ 
signals that no more text items remain to be parsed. 


The sample program illustrates these features. Statements 
100 through 170 contain the controlling program; 
statements 1000 through 1260 contain the parser. 


100 INIT 

R erie PARMI , PARM2=YES, PARMI, » PARMS PARMG" 
1 OSUB 1000 

1 RINT 

1 RINT "LEN A$ = “JLENCAS), “ASE” anag 
1 PRINT "LEN C$ = "ILENCC$S), "C$. "ICS 
1 IF LENCC$)>0 THEN 130 

160 PRINT "JENO OF INPUT STRING. J" 

1? 
1 
1 
1 


70 END 

000 REM - SUBROUTINE PARSER 

818 REM - INPUT YARIABLECS) : 

020 REN - s STRING To BE PARSED 
1030 REN - - OUTPUT GaRTABLE< $) 
1040 REM as NEXT TEXT ITEM FOUN 
1050 REM - 19 POS AR IN cs WHERE DELIMITER FOUND 
1668 BER = ad TENPORARY VARTABL ECS 
1078 En ATCH L COUNTER 
19080 REN = SERA TC 
90 pe - VALID Text ~DELINITERS ARE *," 

PARSER 


i= 
Mbaseccce, I 
IF THEN 1152 


ð R 
@ 
5 
@ 
@ 
er 
8 
2 
@ 
8 
@ 
a 


(3 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 


8 
1 
1 
2 
3 
4 
5 
5 
6 
? 
8 
9i 
e0 


Pare saicpd EZES 
AND WS<>" " AND HS<>*@" THEN 1230 


1 
1 
t 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


210 19" ai 
1220 ILENI PE 


-1> 
MIN LEN(C$)> 
1260 RETURN 


a 
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Recovering From Alternate 
Delimiters 


TEKniques Vol. 2 No. 7 carried the programming tip 
"Recovering ASCII Programs Saved With Alternate 
Delimiters,” (p. 13). Several readers responded with 
another method. 


PRI @37,0:13,255 
OLD x33: warren 


This instructs the microprocessor that parameters for 
input operations specified with a % sign instead of an @ 
sign are to be changed. In this case the carriage return is 
retained as the end of record separator (ASCII 13), the 
default end of file mark remains (ASCII 255), but all line 
feeds will be deleted (ASCII 10). 


Mr. Webber had provided the above code, but since it 
eliminated all Control Js (J) in a program, we didn’t print 
it. Apparently, for many 4051 users, the time and memory 
saving with this method outweighed its one disadvantage. 
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String Search Utility 


100 REM STRING SEARCH UTILITY ROUTINE 
16 REM 


by Howard Mozeico 128 Ren Sat printer address to 41 
. 140 ON EOF (@) THEN 400 
Tektronix, Inc. gp PAIN SPARA the sd" for nich to searen: + 
io Ls 7 the first file to be searched: “j 
Do you ever need to find all the calls of a particular 18 PRINT Jënter the last file to be searched: "I 
GOSUB, such as GOSUB 700? Or do you ever get an 38 GUT Tee “PE for osthut on the printent "3 
error for branching to an invalid line number and want to PRINT EARS fom TAPE IN THE 4051 "i 
scan for other branches to that line number? These 
problems can quickly be solved by the simple program Fore 
listed below which searches for all occurrences of a given 348 IE POStLE XE, 1>=8 THEN 330 
string. 370 PRINT Qos c grate vat 
380 PRINT @D:1 
398 oo Ri 330 


400 


For example, as a useful debugging or documentation 418 IF idea ghen 430 


430 PRINT “JGGGGSEARCH COMPLETED" 


aid, you may wish to locate all your GOSUBs. Input 
‘GOSUB' in response to the question in statement 160; 
then designate which files are to be searched. In line 240 
press ‘RETURN’ and output will default to the screen; or 
input ‘P’ and it will go to the printer. 


Editor’s Note: This routine is not intended for statements containing 
control characters. Comprehensive searching programs are contained in 
the 4051R06 EDITOR ROM (see TEKniques Vol. 2 No. 6) and in the 
As each file is searched, the file number is printed along PLOT 50 4050A08 General Utility Programs, Volume 1, both available 
with all statements containing GOSUB. through your local Tektronix Sales Engineer. 
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Sizing Viewport 
by Dan Taylor 
Tektronix, Inc. 


A two-line routine determines whether a VIEWPORT 
command should reflect the graphic screen or 4662 
Plotter size. 


INP @D:X,Y 
UIE 8,X%,8,¥ 


If the device is 32 (screen), X will be 130; if it’s 1 (Plotter), 
X will be 150. In both cases Y equals 100. 
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Graphic Input With the User- Definable Keys. Simply include the statement GOSUB 
j k 1010 in your program when graphic input is required; a 
Definable Keys flashing arrow will appear in the center of the screen. The 
by Bob Wainright arrow may be moved around the screen by pressing User- 


š i à Definable Keys 7 through 10 for minimum units, or User- 
Tektronix, Inc.—United Kingdom Definable Keys 17 through 20 for units 10 times larger. 


For 4051 users who have no joystick but wish to have 
graphic input, here is a solution that uses the User- When the point of the arrow has been placed in the 


64 


desired position, press User-Definable Key 6. Program 
control is now handed back to the statement following the 
GOSUB 1000 statement, and X and Y contain the 
coordinates of the flashing arrow’s point. 


TITLE TAPE # FILE # 


Statements 28, 32, 36, 40, 68, 72, 76, and 80 control the 
resolution of graphic input. The constants 0.5 and 5 in 
these statements can be modified to suit your resolution 
requirements, and can be altered to suit your WINDOW 
parameters if they are other than 0, 130, 0, 100. 


Statement 1050 designates the graphic symbols font. This 
translates the slash (press the shift key along with the 
backslash key (/)) in statement 1080 into an arrow on the 
graphic screen. Note that the arrow is refreshed by using 
the secondary address of 24 in statement 1080. 


24 2Z=1 
25 RETURN 


ig RETURN 


81 RETURI 

1000 

1010 SE 
2 
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Number Randomizing Routine 


by Dan Taylor 
Tektronix, Inc. 


TEKniques Vol. 2 No. 8 contained a routine to randomly 
order a set of positive integers. Another routine will 
randomly order data consisting of negative numbers or 
decimals as well as positive integers. 


Initially, N data values are entered into Array X. 
Statement 500 then randomly picks a starting point on the 
random number chain. Subsequent random numbers in 
the chain will be used as index values to scramble the 
Array A elements. 


N1iaRND<-1> 

N=64 

FOR L=i TO N 
K=INTCNERND(15+1> 


T=KCLD 
XL eXCK) 
¥(K)aT 
NEXT L 


Statement 530 randomly selects the element to take part 
in the exchange. Since an array subscript cannot be 0. 
note that a | is added to the random value before the 
integer function is performed. Statement 540 transfers the 
value in the receiving element to temporary storage and 
statement 550 loads the value from the randomly chosen 
element into the receiving element. The value in tem- 


porary storage shifts into the randomly chosen element in 
statement 560. The random selection and transfers 
progress through all elements of the array. 


nn 
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Shading Routine for Complex 
Shapes 


by Chuck Eng 
Tektronix, Inc. 


You can shade any polygon shape using the following 
routine. The shading density and angle are variable. You 
can input from, and plot to, either the 4662 Plotter or 
4051 graphic screen. To begin the routine, type ‘RUN’. 
You will be prompted for the number of sides in the 
polygon, the angle of the shading lines in degrees, the 
density of the shading in GDUs, and the device for i input 
and output. 


4662 Plotter—Input/Output Device #1 


Position the pen at the first point and depress the CALL 
button momentarily. (Don’t hold the button down.) 
Move to the subsequent points, depressing CALL 
momentarily at each. As the points are specified, the 


INIT 
PRINT “CENTER D OF SIDES IN POLYGON: cs 

*JJENTER ANGLE OF SHADING LINES: G*J- 

"ENTER SHADING LINE DENSITY IN GDU’S: G*t 

“JJENTER GIN DEVICE @ (1>=PLOTTER OR (2>= JOYSTICK: G” 
T SyJENTER OUTPUT DEVICE @: G% 


u 
DIM PZN) WC2I N41) XCN=-1), P12) 
@ GO TO 2 OF 19000,1108 

GO TO 200 

S=1.0&+387 

L=-1.8€+387 

Si=SINCASO. 81745327) 

Ci=COS(ARse. P1743327) 
@ FOR I=1 TO N 

WL, TD =PCL, ID8C1APC2,; p $51 

H2, 1)=-PC1,I)8S1+P¢(2,I)3C1 

S=S MIN WC2,1) 

L=L MAX WC2,1) 
@ NEXT I 


WCL,N+1>@WC1,1> 
Lhe 
Y2=S+ 

ha Le THEN 1698 


K=8 
FOR I=1 TO N 
MieW(2,1> MIN gearless 
IF Y2<Wi THEN 340 
W2"WC2,1> MAX W(2, 1+1) 
IF Y2=>W2 THEN 540 
he T= CHC, I)-YZDECWHCA, DD-WC Ly P41 97CMC2, TD -WO 2, TOLD 
KaK 

JaK 

IF J=1 THEN 330 

IF X(J-1)=>X1 THEN 530 

X(JeXCJ-1) 

J=J-1 

GO TO 488 

XC J *XL 

NEXT I 

FOP I=1 TO K 

PICL)=xXCI>8C1-Y2sS1 

P1C2>=XCT>8S1+Y24C1 

IF ZEINTCQ. aps Ids oe 1 THEN 610 

MOVE @Z1:P1¢ PL 

GO TO 62 
A Duan PAL PEOPNOPITE) 


88 

REN 4662 at GIH DEVICE 

FOR ls] 

INPUT hrar, PCi I), PC2, 10 
1050 


IF [=i THEN 
MOVE @2:PC1,1~-1>,P¢2,1-1) 
DRAW OZ:PC1, 1), P62, D 
NEXT I 
PRAN @2:PC1,1>,P62,1) 

TO 230 


END 
REM JOYSTICK AS GIN DEVICE 
FOR I=1 TO N 
POINTER P(1,1),P(2,1>,P8 
IF I=i1 THEN 11 56 

49 MOVE @ZI:PCis l-1) PCZ, 1-1) 

se DRAM @Z1:PC1,1>,PC2,T> 

60 HEX 

78 DRAW @21:PC1,19,P02,1> 

8@ GO To 256 
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polygon is outlined. When the last point is entered the 
program closes the polygon and begins shading. Note that 
the last point will be connected to the beginning point 
automatically. 


4952 Opt. 1 Joystick—Input/Output Device #2 


Position the pointer on the screen and press RETURN. 
The sequence is the same as the Plotter, but press 
RETURN instead of CALL for each point. 
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Off-Line Plotting 


by Carl Dawson 
Tektronix, Inc. 


Off-line plotting speeds program execution and frees the 
4051 for other tasks. During program run time, it’s 
quicker to send the graphics commands to tape instead of 
sending them to the plotter with the attendant waiting 
while they are plotted. After the graphics data is 
generated and sent to tape, you can plan the plot files back 
from a TEKTRONIX 4924 tape unit to the 4662 Plotter. 
This technique is espectially useful when producing 
multiple plots, or when several users share a single plotter. 


DAB and GDU 


Off-line 4662 plot files require Data Byte Commands 
(DAB) and Graphic Display Units (GDU). DAB com- 
mands program the plotter by passing the command as 
part of the data. As a quick reference, the following is an 
abridged list of DAB commands.: 


MOVE M 
DRAW 

PRINT P 

HOME H 

ALPHAROTATE R 

ALPHASCALE S 

ALPHARESET A 

PROMPT LIGHT T 

User Data Units are defined by the WINDOW, VIEW- 
PORT, ROTATE and SCALE commands. Four BASIC 
keywords transform User Data Units into device depen- 
dent GDU’s: MOVE DRAW, RMOVE and RDRAW. 
Thus a MOVE @1:X,Y will send the transformed X,Y 
coordinate to device 1. 


To send transformed coordinates to tape requires specify- 
ing the secondary address (MSA).! If a secondary address 
is omitted, as it is in MOVE@1:X,Y, the 4051 
automatically generates a secondary address that cor- 
responds to the keyword. The previous command, 
therefore, internally looks like MOVE @1,21:X,Y. This 
default secondary addressing can be overridden.? MOVE 
@1,20:X,Y will actually execute a DRAW since the 
secondary address of 20 tells the peripheral device to 
DRAW. 


If the default secondary address for MOVE (MSA=21) is 
overridden with the secondary address for the PRINT 
operation (MSA=12), then MOVE@1,12:X,Y will print 
the transformed coordinates on the plotter surface 
beginning at the current pen position. To carry this 
example one step further, a MOVE@33,12:X, Y will print 
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the transformed coordinates to the current file on the 
internal tape drive. 


There is one limiting factor. The User Data Units 
specified as X,Y coordinates of the MOVE and DRAW 
statements must lie within the boundaries of the 
WINDOW coordinates. When a draw is clipped, either 
none or two X,Y coordinate pairs will be issued by the 
4051. Consequently, the coordinates of points outside the 
window will not be consistent with the character com- 
mands being printed by the user on the tape. 


Plot File Format 


Plot files, therefore, contain the appropriate plotter DAB 
commands and their associated data. Each value 
associated with a particular DAB command must be 
separated by a valid delimiter (space or comma) and each 
command must be followed by a valid terminator which 
may be one of the following: 


1. An ETX byte (Control C) 

2. A CR, comma, or space when the data sent to the 
Plotter is numeric and all expected data values 
have been received. 


Two other terminators are valid in other modes of 
operation, but we’ll ignore them since they aren’t usable in 
the “off-line” plotting described here. 


Building the Plot Files 


For off-line plotting, all plotter commands must be in the 
DAB format and all graphic coordinates in GDU’s. A 
sequence of two BASIC statements specify first the DAB 
command followed by the transformed coordinate: 


288 PRINT @33:°M"5 


210 MOVE @33,12:X,Y 


Line 200 prints the DAB character for MOVE tothe tape 
file; the automatic carriage return (CR) is suppressed. If 
the CR were allowed, it would terminate the DAB 
command before the coordinates were specified. Line 210 
transforms the X,Y coordinate into GDU’s and prints 


1A complete list of secondary addresses is on page B-18 of the 4051 
Graphic System Reference Manual. 


2Secondary addresses can be suppressed. PRINT @1,32:”"H” sends the 
character "H” and a carriage return to the plotter without sending a 
secondary address. In this case the plotter treats it as a command 
(HOME). Complete information on I/O addressing can be found inthe 
4051 Graphic System Reference Manual beginning on page 7-9. 


these values to the tape file. In addition, a CR is generated 
by the print operation in line 210 thereby properly 
terminating the DAB command. 


The following example builds a plot file containing a sine 
wave and a title. Note that all coordinates of the MOVE 
and DRAW commands lie within the WINDOW boun- 
daries. 


a sequence 


S to-asht STEP 23P17100 
“TDRA H” command sequence 


33: "D"3 
@33,12:X,SINCX> 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
H 


N! 
UNDOD NNA A UND 
2SSOS2000990R8 


8 REM - VE" command sequence with GDU coordinate 

230 PRINT e33: usó, 90" 

5 "PRINT" - command sequence 
sce PRINT 033: “PSINE WAVEC" 

270 REM - 
280 PRINT ens: io 
298 CLOSE 

388 END 


Since a CR is considered valid data by the print ”P” 
command, note that the ETX (”C”) character was used as 
the terminator in line 260. 


Creating Axes 


The AXIS command cannot be used to generate axes ina 
plot file. The AXIS command causes the 4051 to generate 
a series of moves and draws, sending this information to 
the plotting device with the appropriate secondary 
addresses. Therefore, the AXIS command has to be 
interpreted by the 4051 as it is being executed. 


However, axes can be generated in a plot file by writing a 
short subroutine which performs the same functions as 
the BASIC keyword “AXIS”. This code is discussed in the 
PLOT 50 Introduction To Graphic Programming in 
BASIC in the section entitled “AXIS: Without Axis 
Command.” 


Off-Line Plotting 


The plot file tape can now generate a graph onthe plotter 
without the 4051. Connect a 4924 tape unit to the Plotter 
through the GPIB. Set the Plotter for "LISTEN ONLY” 
and ”DAB” modes. That is, the four hexadecimal switches 
on the rear panel of the Plotter labeled”A B C D” should 


be set to”1 C 0 1.” Put the 4924 tape unit in manual mode 
by releasing the ON LINE switch (ON LINE button 
should be up, not depressed). Rewind the plot file tape by 
pressing the REWIND button and locate the desired 
file(s) with the SKIP FORWARD or SKIP BACK 
buttons. Start the plot transfer by pressing the TALK 
button on the 4924. When the end of file is encountered, 
the 4924 will stop and the plot can be removed from the 
4662 Plotter. 


Off-Line Plotting Monitored 


You may wish to prompt the operator to change paper on 
the plotter. The following small program will enable the 
4924 to signal the 4051 when it has finished transmitting 
to the plotter. The 4924 talks directly to the plotter which 
frees the 4051 to execute any program not requiring the 
GPIB. When the end of file is detected by the 4924, it 
generates a service request (SRQ) and sets its error 
number to 12. The 4051 detects the SRQ and signals the 

operator, (ON SRQ THEN ...). , 


For this method to work, the plotter must be set for both 
MSA and DAB operations by setting the hex switches on 
the back panel to”! 0 0 1.” The 4924 must be placed ON 
LINE by depressing the ON LINE button. The program 
sets up the transfer from 4924 to plotter, waits for the 
SRQ, then prompts the operator to remove the plot. 


REH HONETORED OFF-LINE PLOTTING 


Oh SRQ THEN 5300 
EH Š “eee is device 2, plot on file 1 


REN ee ap “peripheral to peripheral” transfer 
REM °"%" gets 4051 off the GPIB 

NEVTES age, t22, 33: 

ie it (or execute a BASIC progran) 


È continus end of file detected 
PETH "GGG Please renove plot GGG” 


REM SRQ service routine 
POLL He Ex 
IF I= H 350 
PRINT. “GGPOLL ERROR" 

@ STOP 


QNK-OVODNIHUNLWN+-@ 
SSSCOSCOSCOTVADRD 
m a 


1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
5 


REM Get ‘set unit error number 
INPUT @ 

IF E<>i2° THEN 6 
REM Untalk & watiates peripherals 
WBYTE @95,63: 


688 RET 
618 PRINT “GGGTAPE ERROR NUMBER "JE 
620 STOP 


REPRINTED FROM TEKNIQUES, VOL 3 NO 2 — 4050 SERIES APPLICATIONS LIBRARY NEWSLETTER 


Keyed File Access on the 4907 
by Jack Gilmore 
Tektronix, Inc. 


The 4907 brings a random access file and record 
capability to the 4051. Although 4907 files are accessed by 


name, random access of records still requires the use of 
cardinal numbers (1, 2, ..., number of records allocated). 


Sometimes it would be more desirable to access a record 
based upon an alpha string such as a name. Non- 
sequential groups of numbers, such as a social security 


number, could make a desirable access key. Some 
combination of the two, such as street address, might also 
be useful. 


A method that constructs and searches symbol tables in 
compilers and assemblers is “hashing.” The hashing 
method maps the set of keys into a restricted range of 
numbers or “hash codes.” In our case, hashing transforms 
the key field such as a last name into a numeric value 
representing 1, ..., number of records. 


Linear Hashing 
The hashing function is chosen so that: 


1. The computation of the hashing function is rapid; 
2. The mapping of all keys to hash codes is uniformly 
distributed over the range of hash codes. 


These codes are then used as record numbers to access the 
data file in a random fashion. 


To enter a new record, the following procedure is used: 


1. The hashing routine computes a record number in 
the file from the key. 


2. If the key-field (first) in that record has the 
initialized value (alpha-blank or numerical-zero), 
the key, followed by the rest of the data for that 
record, is written at that position. 


3. Ifthe key-field is the same as the key for the record 
being inserted, the record already exists. 


4. Ifthe key-field is different than the key for the new 
record, the hash code (record number) is in- 
cremented by one. If it’s greater than the number of 
records in the file, it is reset to one. A check is made 
to see if the record numbers have completely 
wrapped around once. If so, the file is full and error 
action is taken. If not, steps 2 through 4 are 
repeated. 


To recover a record takes a similar operation: 


1. The hashing routine computes a record number. 


2. If the key-field (first) is blank or zero, then the 
record doesn’t exist. 


3. Ifthe key-field is the same as the key for the record 
for which you are searching—Eureka! —it’s been 
found. 


4. If the key-field is different, the record number is 
increased and tested in the same manner as 
inserting a new record. Steps 2 through 4 are 
repeated and an error return is taken if the record 
does not exist (exhaustive search). 
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The following routines implement keyed file access for an 
alpha key. 


KILL ‘DATA’ 
NO=0 
N1=0 
KO=200 
AB=10 
jO GOSUK 4000 
Ma B aai Sample program to test 
key subroutines 
FOR 1=1 TO 
CS=CHRCINT (RNI 1) 20/465) 
AS=NSECS 
20 NEXT I 
GOSUB 4230 
WRITE #Irhih 
NEXT J 
GOSUE 4500 
GO TO 170 
REM INITIALIZE FILE STRUCTURE 
REM KO IS THE NUMBER OF RECORLS 


REM KB IS THE RECORD LENGTH 

CREATE "LATA*EROeKS 

OFEN "LATAT#1y Fr AS 

FOR K9=1 TO KO 

Set all keys to blank so we can 
tell that a record is unused 


WRITE #1iengi* * 
NEXT KỌ 
CLOSE 1 
RETURN 
REM HASH ROUTIENE 
REM K = HASH COLE 

20 KEM h$ = INFUT KEY 
KELEN(KS) 
FOR K2=1 TO LEN(AS) MIN 4 
CE=SEG(ASeRIe1) 
K3=ASC(C$) 
NENNI?" (N2-1) 
NEXT KO 
IF Kx=KO THEN 4210 
REA-INT(CK=1)/K028K0 
RETURN 

20 REM FIND REC NO. FOR NEW KECORD 
GOSUB 4130 
KOK 
NO=NO+1 
READ @iehiFs 
IF FS * THEN 4290 
RETURN 
KREKGL 
NI=NIFL 
IF KORY THEN 4340 

20 PRINT *FILE FULL” 
STOF ] 
1F K.=NO THEN 4200 
N=1 
GO TO 4260 


For best results modify and test to 

make sure this routine produces uniformly 
distributed numbers for vour particular 
kevs 


4 
Key = Length + Z ASC(KS(1)*2T (1-1) 
1=1 


Calculate hash 
Save it to compare for exhaustive search 
Number of record entered 
Read key 
Check for empty record 
Success, found empty slot 
Nope. so try next record 
Number of extra reads 
Is key wrapped around once? 
More sophisticated recovery technique could be used 
Check for key overflow 
If so, reset key 
Get next record 


Hash key 
Save key for exhaustive search 
Read key from file 
Compare keys 
Found it! 
* THEN 4470 Check next record 
PRINT *RECORL DOES NOT EXIST* Check for blank record or exhaustive search 
STOF ] More sophisticated recovery could be used 
IF K<#kO THEN 4400 Check for key overflow 
hes Reset key 
801.10. 4800 Get next record 
) KEM SUMMARIZE 
O PRINT “FILE IS 
PRINT ‘AVERAGE READS FER ENTRY 
RETURN 


REM FIND RECORD FROM KEY 
O GOSUB 4130 

NOEN 

READ @1enirs 

IF FS. KS THEN 4430 


STATISTICS 
*FINTINOSNOMLOOFO.SI4°R FULL. °F 
*PINTCONL#NO) /NOM10040.5)7100 


The following are advantages of the linear hashing 
method: quick access to a record, not having to read inthe 
entire record to check if it’s the right one, no tables to keep 
in memory, the routines to implement the technique are 
small. 


However, once the file is created and initialized, it cannot 
be expanded; to do so would change the mapping of keys- 
to-record placement. This could be a major disadvantage 
in some applications although a program could be written 
to copy a file to a larger one, recomputing record 
placement in the process. 


Another drawback is this: as the file fills up, the average 
number of reads to locate the desired record goes up 
dramatically, as shown in the following graph: 


LINEAR HASHING DISC ACCESSES The following routines implement non-linear hashing. 
Although the hash tables are stored as the first record in 
the file, they could be stored in a separate file. If stored 
separately, the hash table should be chosen independent 
of the record length. Each entry could also be ina separate 
record, so the entire hash table needn’t be in memory at 
one time. This would require one additional disc access. 


A 
v 
E 
R 
A 
G 
E 
N 
o 


noma no 


Program 1o test non-linear hashing 


Non-Linear Hashing 


Initialize file 
Non-linear hashing is another method of implementing vecori 

. i 5 2 =5 Number of bytes used 
keyed file access. It overcomes some of the linear hashing se KEEVA a ie iedivaith 


constraints, although there are tradeoffs. Non-linear 30 READ thetare init hah table 
. . . . . y FUR J=1 TO 1ò 

hashing allows file expansion, and the records within the 5a: EIR Tak ID á 

file do not have to be pre-written with null keys. Sie 


YO NEXT 1 


GUSUK 2010 Link in new record 


However, the routines are more complicated. A table 30 KALEH NEDRE eee 


Increment record # for next available record 
NEXT J 


containing record numbers must be retained in memory $0 Gusu apo 
. . . . . Gi GO 2% 
when the file is open and saved on the disc when the file is REN SUNGARTZE STALIET(CS! 
closed. When adding to a file, an entire record has to be So soso 
. . . FOR I=1 TO 100 
read and modified. This technique has another perfor- 59 SNL ATES 
mance characteristic demonstrated in the following ago FOR 121 TO no 
as IF KO=O THEN S20 
graph: fe tie 
120 NEXT I 
PRINT “AV READS *§2750 
RETURN 
REM INITIALIZE FILE STRUC: URE 
REM NO = THE NUMBER OF HASH BUCAtT» STORABLE IN ONE RECORD 
ROFINTCURS~1779) Compute # of hash buckets from record length 
REM AB IS THE RECORL LENGTH 


NON-LINEAR HASHING DISC ACCESSES 


CREATE *DATA*# 300+n8 
OPEN ‘DATA’ i1'F'rAsS 
DIM N?(NO) 


K7=0 Initialize hash buckets to empty 
WRITE @1913h7 


CLOSE 1 

RETURN 

REM HASH KOUTIENE Same as linear hashing 
REM h = HASH COLE 

REM AS = INFUT KEY 
NELENCKS) 

FOR Ki=1 TO LENINS) MIN 4 
CS=SEG(KSrK201) 
K3=ASC(CS) 

KERtKSR2™ R2-17 

NEXT KO 

IF Ko =KO THEN 5120 
KERK-INTOCR=1 1 /KO7 BNO 
RETURN 


+ O2 Maram<> 


“vma no 


REM FING REC NO. FOR NEW RECORU 
3 4 5 se 7 GOSUF S040 Hash the key 
FILE LENGTH/NO. OF HASH BUCKETS TERN) O THEN $980 Check for empty hash bucket 
NIIN ENO Store record # 
WRITE #19137 Write it to disc 
‘ A RETURN : Main program is responsible for writing entire 
If the file contains a large number of records, the hash SOR REE TEAD OLENE RECORD Hash backer ful add ink ‘a.nd ep chalé 
READ #1 eNinSers ‘5 is link to the next recor 
table length could become unreasonably large to decrease DIO9 IF Ast F$ THEN 9130 i keys match? 
ò FRINT "RECORD ALREADY FxL3TS* 
f STOF Error procedure 
6120 STOP 
the average number of accesses per read. a IF KS=0 THEN $170 Have we found the end of chain? 
K=AS No, chain down to next record 
č j ; , NI=N141 
o GO TO 609 Warning!! This must be expanded to statement that reads 
The following diagram illustrates the data structure of be sh a =| gad wenes she cinkse rector coh E 
NONIF1)=NCNI ELE Statistic variable (may be deleted) 


REM FIND RECORD FROM KEY 
GOSUB 5040 Hash the key 
IF K7) CO THEN eosu Check the hash bucket 
PRINT *RECORD DOES NOT Esisti’ 
STOF 
KEAZ OK) Index into the hash table 
READ PLININS FS Read the recor 
IF F& ONS THEN 6290 Js it the right one? 
RETURN Yes 
IF KS=0 THEN 6230 No, check for end of the chain 
KEKS Chain to next record 

0 GO TO 0260 And read it 


non-linear hashing. 3190 RETURN 


HASH TABLE 


With the above information, tradeoffs can be made 
between linear and non-linear hashing for any number of 
records. To calculate the number of hash buckets for any 


Last Record in Chain 
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size file as a function of the number of disc accesses, the 
following empirical equation is given: 


S =B where B is number of hash buckets 
IN S is number of records 
N is number of reads 


For linear hashing, the following empirical equation 
seems to work: 


where A is allocated size 
=A S is number of records used 
N is number of reads 


2(1+N)S 
N 
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4907 Data File Storage 
by Chuck Eng and Ed Mitchell 
Tektronix, Inc. 


The 4907 has four data file structures: 


Binary random access 
Binary sequential access 
ASCII random access 
ASCII sequential access 


(This discussion does not include ASCII and binary 
program files.) 


Both the random and sequential files have the same 
physical structure (256-byte blocks), but random access 
files are broken down into logical records. These logical 
records have pointers to the beginning of each record. 


ASCII Random Access Files 


ASCII random access files must be intialized. That is, 
each record in the file must be completely filled before the 
next record can be accessed. A quick routine to do this is 
shown on page F-2 of the ”4907 File Manager Operator’s 
Manual.” Notice that one byte of each record is allocated 
for the CR; therefore, ASCII random records are 
initialized with a string of record length minus | byte (the 
carriage return is placed in the last byte). 


Printing of ASCII random records must be done ac- 
curately. Record boundaries are not detected when 
ASCII records are printed to or input from. If there is 
more data than record space, the data will print over the 
next record. And, when a file is opened, and an input 
operation is executed that brings in more data items than 
contained in one record, the following record(s) will be 
input. 


The 4907 dynamically extends files. As ASCII random 
files are extended, the records must be completely filled or 
subsequent records cannot be accessed. If you are letting 
the 4907 automatically extend your ASCII random file, 
be sure the data string length equals record length minus 
1; pad the data string with blanks if necessary. 


Binary Random Files 


While Binary random access file records don’t have to be 


initialized in the same manner as ASCII (completely 
filled), something must be written to a binary record 
before the subsequent record can be accessed. The above 
mentioned routine on page F-2 writes 3 blanks to each 
binary record. 


Record boundaries are detected on binary writes and 
reads; therefore, if too much data is written or read for 
the record size, an error message is generated. 


Storage Space 


Data cannot be added to random records; updating a 
record requires rewriting the entire record. Also in- 
dividual random records cannot be enlarged. So knowing 
data storage space requirements is important. 


Both sequential and random access files are expanded 
automatically as space is required. Random expansion 
records are the same length as those originally created. 
Sequential file expansion is in units of 256 byte blocks. 


The following table capsulizes the storage information: 


4907 Data File Storage Binary ASCII 
Sequential Random 
Record No, but N/A Yes, N/A 
Initialization records (record 
tilled length 
in order | minus 1) 


Random | 


Sequential 


Strings: 
Overhead: 4 bytes 5 bytes 1 byte 
per string per per string 

plus 1 

byte per 

record os Ae e 
Per character: T 1 byte 

Numeric Data: 
Overhead: 1 byte 

per record per record 


Per value: 9 bytes 
End of Record 
Separator Yes 
Detection 
End of File 
Marks Yes 


renee 
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Packing Integers 
by Ted Webber 


Laurie, Montgomerie & Pettit Pty. Ltd. 
Sydney, Australia 


The following program saves memory when you're 
storing integers consisting of six digits or less. The 
integers are packed into one real number, complete with 
signs, in the format: 


C = £A.nB where A and B are each 6 (or less) digit 
integers and n = 0, 1 or 2 to indicate the sign of B 


The sign of B is stored as the first digit after the decimal 
point in Cso that 0 = -, 1 = 0 and2 = +. FNBencodes N1 
into the integer part of N. FNC encodes N2 into the 
decimal part of N. FND decodes N2 and FNE decodes 
Nl. 


The first routine generates two arrays of 500 random 
integers, which are then merged into one array of 500 real 
numbers. Partial output is illustrated in Fig. 1. 


iante, 
+FNACD) 
@ DEF . ži. 3E2720, 1$CSGN(C)+1) 
pela F $i 19 NT(@, 5+18888QOXFNAC 1 ORF) 
@ DIM 


@ N=0 
R=RND<-1) 
Z=1000000 
FOR I*i TO 200 
2a-2 
N1CT*@INTCRND( 1982) 
H2¢ 1) @INTCRNDC1>82> 


xT I 
@ FOR I=1 TO 208 
DeNCT> 
HCI) @FNBCNICI)> 


m| 
Se ae 
NEXT = 


rin NTCABS(D)>> 
WACC))> 


PRIM 
DELETE 
DIN Ni (20b), H2200 
FOR I=1 TO 
AicterHECNeT > 
H2<1>@FNDCNCT 9D 


8 
PRINT "GGG" 
@ END 


The second routine packs the integers as they’re input, 
first N1 (statements 230-250) and then N2 (statements 
260-280). Once the real number array is completed, either 
N1 or N2 may be changed without re-computing the 
other. Figure 2 shows random generation of N1 and N2 
using the second routine, and the consequent output by 
changing N1 only through deletion of statement 260-280 


and running from line 210. Figure 3 repeats this process, 
but changes N2 only. 


72 


N1 


-148669 492183 -969949 643160 
68575 


93754 
888369 


-571236 


409003 -475883 


217464 


492183, 2409 -047588 


95754, 2710938 


-796499.024195 888369. 221746 -571236. 824666. 


DECODE N1 


0906873 223099 


-149669 492183 -969948 643160 
68575 


3e 6€773 
-241950 217464 230988 


Fig. 1. N1 and N2are shown before being merged into one array 
(N). N illustrates the packing routine result. The decoded 


arrays depict the integrity of the routine. 


> 
+OE-74+8. 18¢SGN(C)41>+INTCABS(D)>> 
re. S+186@800SF NAC 1ORFNACC) >> 


R=RHD(-1) 


Z=1000000 
FOR 7 a “SKZ2C9ADI7ZAZC9AD™S "N1", "N2", "NCI)*, "N1 DECODE",* N2" 
a} 


8 -Z 
NIR INTCRHOCI 82> 
DeN< 1>) 
NCI) =FNBCN 


NN a pea pea met mt pe pat pea et e 
hahaa 
© 


2 HS INT ČRNO CI >52) 
270 DaN< 1I) 


NCI) 
636801.0 66398 
390792,2 8762 
311026.0 
928230.2 928230 3490880 
-177612 -470969 -177612.0470970 -177612 -470969 
DEL260, 280 
RUN216 
543970 -470969  543970.9663998 543978 -663989 
-4366039 -470969 -436839. 2026 44 -436939 socos 
711657 -4709 711657. 003759 711657 -3758 
-997196 -470969 -997196. 2540080 -997196 346088 
698221 -470969 698221.0470970 698221 -470969 


Fig. 2. The first run shows the integers as they've been input, 
packed and decoded. In the second run, N1 array has 
been changed, packed and decoded. 

NI N2 NCI) N1 DECODE N2 
-581295 -303007 -591295.e503018 -581295 -503007 
271969 806404 271969.2806408 271969 806464 
-942176 -849438 -942176.0849448 -942176 -849438 
617385 979883 617385.2979880 617305 979883 
-264712 -128913 -264712.0128920 -264712 -128913 

DEL230, 250 
-264712 924541 -581295.2924548 -391295 924541 
-264712 -451348 271969. 0451350 271969 -45313490 
-264712 531743 -6942176.2881730 -942176 351745 
-264712 -958616 617385.0938620 617385 -930616 
-264712 5353110 -264712.2553118 -264712 553110 
Fig. 3. Deleting statements 230 through 250 allows N2 only to be 


changed. 


L M ——— 
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Coordinate Transformation 
by James R. Umdenstock 
City of Tulsa, Oklahoma 


The City of Tulsa is presently assembling a graphic data 
system that includes all major buildings, streets, water 
and sewer lines, address centroids (building centers) and 
the like. This will be a major data system for use by all city 
departments. 


One of the problems associated with constructing such a 
data base is that separate and detached surveys and maps 
will meet harmoniously, without gaps or overlaps. 
Therefore, we have developed a routine which converts 
points on the digitizer to state plane coordinates. 


A map may be placed anywhere on the Summagraphics 
digitizer table interfaced to the 4051 Graphic System. As 
the ground points are digitized, the 4051 quickly converts 
them to state plane coordinates and stores them on tape. 
The data is then transmitted to the host computer over the 
Option 1 Data Communications Interface. 


Since state plane coordinates are an established and 
understood system, this is a very practical program for 
land mapping use. 


ptyno1 SPCS RÈLDER & TRANSFORMATION PROGRAM 
seo 
UTHOR. y UMDENSTOCK CITY OF TULSA 4 JaN 79 


oe 
~ ABSTRACTO 
PROMPTS FOR any TWO KNOWN STATE PLANE COORDINATE 
BENCHMARKS ON THE “MAP, PERFORMS a TRANSFORMATION 
BETWEEN THe MaP AND THE DIGITIZED COORDINATES, WRITES 
OUT THe POINTS IN THE X,Y STATE PLANE SYSTEM, WITH 
THE PEN UP/DOWN MODE FOR CALCOMP, PLUS THE SY™BOL 
=¥ NUMBER, 

eee 
~ BEGIN MAIN PROGRAM 
PROMPT FOR PHETWO SENCHMARKS 


REM see 4 

u PRINT "INPUT TuE STATE PLANE XeVALUE OF THE LOWER LEFT “ARK yey 
INPUT Xg 

u PRINT "NOW, THE STATE PuaNE YevaLUE OF THE LOSER LEF? MARK o"j 

n INPUT ya 
PRINT "NOW, DIGITIZE THAT MARK(PRINT MODE)" 

© Lypyacds,t2.Fs,* 

2 PRINT "INPUT STATE PLANE XeVaLUE OF THE 2ND MARK 0") 

v AyPur x2 
INT «Ow, 
INPUT Y2 


THe STYE PLANE YeVaLUe OF Twe 2ND MAPK omy 


U x3e x2exd 
L Yte ¥2e¥ 
AGeATNOYS/23) 
2. x45 p5eny 
yas 04002 
u ASEATNGVGs24) 


DIGITIZED POINTS 
ee 


T Ma? Scale tfece 


o inay olatr!zep POINTS” 
PEN DOWN" 
PEN uP” 
a DELETION" 
"MEN, ON Tug KEYRCARD TYPe THE CIDE FOR ThE SYMBOL AFTER” 
PaJyI "IMEN BELL, TYPE 999 TJ TERMINATE" 
LINIUG XV FSET 
ATEAING ABS(Y@D2) 7005 (K~9D1)) 
LieSreSCRES3S( edt) seeaBS(YeU2)I2) 
$ 63739 Byun 
Pap" « 
tweut Cr 
E 17 032999 THEN 745 
PRINT G2,LSeFECL 
t 6973 65 
"NORMAL TERMINATION” 


oe 
JUSTMENT SECTION 


32)>u 

L A@EATHAB 

č G9Suga 4000 
u2eescd) 
ELTETE] 
G10 72 

C re gyep? % 
AGaA7=AG 


THEN 945 


THEN 920 


Goss 1°00 
S U2se3(2) 
L3RE3(4) 
G30 71° 
2i pBea7ead 

GISus 1nUuc 

L2ee3¢2) 

b38F303) 

G30 71° 

ASaa7eaé 

ı GOSuBLiUNU 

L2"Est) 

e L3sE344) 

Gato 71° 
EdCadeXLeLLeCOS( Ag) 
ES(2dexzey1°Cgs¢ Aad 
ES(SEYLeLLeSIN( Ag) 
ES¢a@)zvleyleStNcagd 
RETURN 


END 


The logical unit number for the digitizer is 8. 


This printout is from the host computer, using the Option 1. 
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Changing 4051 Parameters to Read 
Different Tape Formats 
by Aaron Eisenbach 


Tektronix, Inc. 
Baltimore, MD 


The 4051 can easily adapt its ASCII input format 
requirements to the ASCII output formats used by 


different peripheral devices. A customer recently logged 
data on the Tektronix 4923, and then read it into the 4051 
using the following routine. 


Statement 120 changes the status byte for the internal 
magnetic tape unit so it can read the 128 byte length, no 
checksum, no header format of the 4923. The next steps 
determine the record separator, end of file mark, and 


incoming character(s) to be deleted. After the alternate 
parameters are input, statement 230 instructs the 
microprocessor to use these when the ”%” sign is used in 
place of the "@” sign on INPUT, OLD or APPEND 
commands. 


The rest of the routine reads the tape and resets the status 
bytes. 


ais ‘use! THE DECIMAL EQUIVALENTS OF THE" 
ASCII CHARACTERS FOR iL TOELONING INPUTS" 
“JJJG# RECORD SEPARATOR ? : 
a "JGS END OF FILE MARK 7: "J 
ihe $ CHARACTER TO BE DELETED ? (ENTER 128 IF NONE) : “J 
218 PRINT "JGS DATA FILE 8? : “5 
220 INPUT F 
23e pran €37, 0:A1, A2,A3 
2530 ON EOF (0) THEN 300 
260 FIND 
278 INPUT %33:A8 
290 PRINT As 


BOODVAUSWN-@ 
D 
v 
pa 
ezeze 
3 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 


328 PRINT *JJGOO 


Caution should be used when specifying an alternate 
record separator. If an ASCII data string contains both 
Carriage Return characters and the alternate record 
separator character, logical records could be lost. To 
avoid this, specify the character to be deleted (statement 
190) as ”13.” This will delete all incoming Carriage 
Returns but will read all logical records. 


For a complete discussion on magnetic tape status 
parameters, see the “4051 Graphic System Reference 
Manual,” pages 2-19 to 2-21. Check pages 2-25 to 2-30 for 
detailed information on processor status parameters. 
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Program Byte Counter 
by Leo J. LaFrance 
New Mexico State University 
Las Cruces, NM 


This routine quickly determines the minimum space 
required by an ASCII program file. It analyzes a file 
already on tape and, if requested, will re-mark the file and 
re-store the program. Note that the file should be the last 
one on the tape. 


Is 

80 INIT 

18 C#=CHR(13> 

20 DIM ASC MEMORY-300> 

130 A$="" 

140 ON EOF (@> THEN 230 

150 PRINT "LInsert tape and input number of file * 
eed Te "to be analyzed. "j 


sacs 
218 pe ae @> 
0 198 


“JJASCII file pemuires,, "SLENCAS)$" bytes,” 
"Minimum is 768 b 


228 GO 

238 PRINT 
248 peT 
250 PRINT ° If you want the aie" re-sized, 


enter " 
260 PRINT YOUR TAPE WILL BE "$ 
270 PRINT 
280 INPUT G$ 
290 IF G$<>"YES” THEN 340 
300 FIND F 


zs MARK 1 LENCA$)+1 
338 PRINT @33:A$; 
340 END 


BAOTION: 
KED, 
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Data Transfer Through the RS-232 
by Mark Mehall 

Tektronix, Inc. 

Chicago 


Two small programs allow one user (User 1) to control 
tape-to-tape transfer of data to or from another 4051. 
This is especially helpful if the other 4051 user (User 2) is 
unfamiliar with data communication procedures. 


Preparation 


Each user connects their Option 1 to their modem, 
through the RS-232 cable supplied with the 4051. Both 
modems are set either to full duplex or to half duplex; the 
4051s and the modems are then powered up. 


The user who is receiving the data marks a tape for the 
number and size of files required for the incoming data. 
User 1 loads the applicable program below (sending or 
receiving) into 4051 memory. User 2 types in CALL 
”CMINIT” on the second 4051 and presses the RETURN 
key, then types in CALL ”TERMIN” followed by a 
RETURN. 


Data Transfer 


Establish telephone contact (either one can dial the 
other). One user sets their modem to answer (ANS) mode 
and lays their headset into the modem cradle (note where 
the cord end is placed). The other user sets their modem to 
originate (ORIG) and listens for the frequency signal; 
then sets their headset into the modem cradle. When 


contact is established, the carrier light on the modem will 
come on; the 4051 will stop flashing its lights. 


Now the program in User | 4051 memory is run. Users 
each respond to the prompts on their 4051 screen, and the 
data transfer is carried out. When transfer is completed, 
load one of the files into the receiving 4051 to verify. 


A related and informative article is contained in TEKni- 
ques Vol. 1 No. 4, “4051s Talk To Each Other.” 


REM PROGRAM TO SET 4051 OPT. 1 PARAMETERS 
REM FOR TAPE TRANSFER TO ANOTHER 4851 


INIT 
REM SET L$ TO CTRL-L (NEWPAGE> 
Aar le, 
REM SET g TO CTRL-J (LINEFEED> 
JS CHR( 
Ben Ser Ge TO CTRL-G <BELL> 
pina” FIRST FILE TO @ 
PRIN 4051 TO 4051 TAPE TRANSFER” J$) J$ 
PRINT othe OTHER 4851 USER SHOULD USE Toe a FFALT PARAMETERS, ” 
PRINT "AND SHOULD BE IN TERMINAL MODE. 
REN IHITIOLIZE THE COMM. INTERFACE 
REM SET TSTRIN TO MATCH DEFAULT RSTRIN PARAMETERS 
REM ae Rg TO CTRL-R <DC2> 
RS=CHR¢ 
REN Sey i TO CTRL-T <DC4> 
T#=CHR(28) 
REM SET oP TO CTRL-D <EOT> 
D#=CHR<4 
CALL TTSTRIN" RS, TS, D$ 
REM SET TCRLF TO SUPPRESS CARRIAGE RETURNS 
CALL “TCRLF", 0,2,0 
REM SET RERE i To TRENTED CONTROL CHARACTERS 
CALL "RCRLF"; 1,2, 
@ REN INITIALIZE Fhe INTERFACE 
PRINT €490,30: 
ren INITIALIZE FILE NUMBER 


= 
PRINT "HOM MANY FILES ARE BEING TRANSMITTED? "IG$4 
INPUT F 
FOR 


ssdeseeeass 
oo 


Ii TO F 
ay FIND THE TAPE FILE TO BE TRANSFERRED 


PRINT “WHAT TAPE FILE IS TO BE TRQUSHETTEDS, bs 
PRAT *THE LAST FILE WAS “SFII" “IGS 
FIND Fit 


PRINT 
REM SEND INSTRUCTIONS m JHE OTHER USER 
@ REM SET E$ TO CTRL-E <ES 
ae > 
T O40: ESjL 9)" 4051 TO 4051 TAPE TRANSFER” 
PRINT e $1 J$ "Use Function Key 13 (shift 3) to find the file” 
PRINT @ $i"to store the data. Enter the file nunbir: rs 
PRINT @40:J8)"Press RETURH. Then press Function Key 3 "G$ 
PRINT €490: J$] J$) “The information on your screen vill overprint,* 
PRINT @40:J#; "that’s normal. ”i J$; 
REM WAIT FOR A TRANSMISSION FROM THE OTHER 4051 <SNDSTG> 
INPUT @48:AS 
REM DO THE TRANSFER 
CALL “OTSEN 
PRINT "FILE TRANSNITTEOGG. x 
PRINT 040; J$ JSS J$) “File received. 


ee 
RINT @40:J8j"Final file received 


PRINT 040: J$ "Pick up your headset, 
END 


Fig. 1. 


"GS J$ 
Pg 
"G$ 


Routine to control transfer to another 4051 over the 
Option 1. 


REM PROGRAM TO SET 4051 OPT, 1 PARAMETERS 
REM FOR TAPE TRANSFER FROM ANOTHER 4051 
REM SET L$ TO CTRL-L <NEHPAGE> 

LS=CHR<12> 

ae 8 È TO CTRL-J (LINEFEED> 

REN SET S G$ TO CTRL-G <BELL> 

REM SET FIRST FILE TO @ 

Fis@ 


Bee soownasan—e 


51 TO 4851 TAPE TRANSFER") JS Js 
uo USE us ern PARAMETERS, * 
INT AND SHOUL! MODE. 


an INITIALIZE THE COMM. INTERFACE 


EPAL 
T RSTRIN TO MATCH DEFAULT TSTRIN PARAMETERS 


RER” 

REM SET N$ TO CTRL-@ (NUL) 
NSeCHR(6) 

REM SET ise TO CTRL-S <DC3> 
SS=CHR(1 

REM SET be TO CTRL-D (EOT) 


D$»! HR< 
KELL E af eect 
REM SE 


Louk to SERD NOTHING AS SNDSTRG 


BLL TEOLCHR’ »1 
350 REN SET ERLE’ FO PRINTED CONTROL CHARACTERS (FOR LINE FEEDS) 
CALL "RCRLF* 
REM SET FRCR' n kokee CARRIAGE RETURN) TO @ (NO) 
CALL "DELAYS" 
98 REN milak ize” THÈ INTERFACE 


408 eani 040 
not R MANY FILES ARE BEING RECEIVED? "sGS) 
T 


E Bult 
ee 
325 

z J44 


F 
THE TAPE FILE TO STORE IT 
s “WHAT ARPE FILE IS TO RECEIVE DATA? * 
HE LAST FILE WAS "IF15" "SCS 


D: 
oO 
DrD 
a -s 
“2gb5—"z2 
308 


THD 
IH 
REM SEHD INSTRUCTIONS TO THE OTHER USER 
REM SET E$ TO CTRL-C (ESC) 
ES=CHR(27> 
30 PRINT @48: erte 4031 TO Age! TAPE TRANSFER" 
INT @ $1 J$} "Use Function Key 13 (shift 3) to find the file" 
t"to be transferred, Enter the file purar: 
eeens RETURN. Then press Function Ke 
$i"The last file transferred was “$F-1) 
aay a information on your screen ait overprint,” 
Pi a M normal. "i JSS 


TRI 
20 PRINT “FILE RECE i 
H PRINT e40: J81 J81 J83" ile transmitted. "IGS J$ 
PRINT €49: J$) J$) J$) "Final file transmitted. 


. 
5 
ERUN. 040: J$j "Pick up your headset. ",G¢ 


Fig. 2. Routine to control transfer from another 4051 over 
the Option 1. 
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Salvaging Accidentally Re-MARked 
Files 


by Jay K. Marshall 
Sangamo Energy Management Division 
Atlanta, Georgia 


and Herman D’Hondt 
Tektronix, Inc. 


Sydney, Australia 


TEKniques Vol. 2 No. 3 carried a short routine to salvage 
re-MARked files. Both Jay K. Marshall and Herman 
D’Hondt (the author) have sent in updates to that tip. The 
best of both of their routines were combined to produce 
the following program (Fig. 1). In addition, Mr. Marshall 


suggested a technique using the EDITOR ROM and Mr. 
D’Hondt has a routine for ASCII files only. 


In the previous tip, on EOF the 4051 searches for a file 
behind the new LAST file. During the search, the 4051 
counts the number of headers. When it reaches one, it 
checks the file number in the header against the file count 
because it’s in header mode. If the two numbers don’t 
match, the 4051 generates an error and returns to the 
loadpoint. 


The following program, though still fairly simple, over- 
comes this problem. It requires two passes of the tape. In 
the first pass, it accesses all files beyond the new LAST file 
in non-header mode, changes each header so the file 


numbers will be the ones the 4051 thinks they should be, 
and prints the old and new headers to the screen. On the 
second pass, you can access the files in header mode, load 
the program/data and copy it to another tape or disc. If 


hee N=Number of new LAST file 


= 
ON EOF (0> onn 308 
PRINT @33,8 


REM Find neu 0:8} file 
FIND N 
INPUT @33:A$ 
GO TO 160 
PRINT "OLD NEW” 
REM poe peninda files to be retrieved 
CS=CHR¢ 
338 FOR Kez 13 256 
48 FIND N 
INPUT N53: As 
ES#SEG(AS,9,1> 
@ IF ES="L" THEN 
parE Gens 1330) 
$4 


490 


PRIN 
BSHeTRCNEK 

IF VAL (Ba>>9 THEN 410 
Bs=Bse" 
Beete ces StI LENSES 2s 
AS=ASECS 

AS#*ASE"S" 
GOTEC COS by 30? 
pean Wied 

FIND N 
PRINT" #33: tas 
PRINT “FINISHED” 
PRINT 033, 0: 0,0,0 


PRINT aros may now find and load any file from “"sN*25"°"5 
roe ns “WSN*K-110"°. GGG" 


REM N=NEH LAST FILE 
@ N=4 


ON EOF (0) THEN 670 
PRINT @33,0:0,0.1 
@ FIND N 


INPUT @33:A8 
GO TG eae 
PRINT @33,0:6,0,0 

9 ERANT tioo MAY NOW ACCESS YOUR NEXT FILE" 


Fig. 1. This routine will retrieve marked over files beginning with 


the first full file after the new LAST file. 


you don’t have a 4924 Tape Drive or 4907 Disc system and 
have to switch tapes in the 4051 drive, statements 600 to 
690 must be executed to access these files. 


Depending on the location of the new LAST file in 
relation to the overwritten file, you may be able to access 
the overwritten file by inserting the following statements 
into the program. Note that A$ gives you a “listing” of 
your program. However, control characters are treated 
literally which results in a screen PAGE should a 
CONTROL L be in any statement. 


REM Change target line in statement Fy to 200 
PET ipa file overwritten by LAST Fi 


ON EOF <0) THEN 306 
INPUT @33: As 
PRINT AS 

© GO TO 250 


Fig. 2. Inserting this code into the above routine may retrieve the 


partially overwritten file. 


Again, depending on where the new LAST file is sitting in 
the overwritten file, it may be possible to OLD in what 
remains of the overwritten program using the 4051R06 
EDITOR ROM. Insert the EDITOR ROM intothe 4051 
backpack and issue the following commands. 
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PRINT @33,0:0,0,1 
CALL 


"EDITOR" 
FIND n 


INPUT (Issue command until MT error generated?) 


Fig. 3. Using the EDITOR ROM and issuing these commands will 


bring you to the end of the new LAST file. 


Then find the n+1 file and OLD it in. These results will be 
displayed. 


PRI@33 
c 


AST 
INPUT 


OR ERROR 
Device at EOF - error number 


INPUT 

IEDITOR ERROR 

MT File - error number 
FIND 5 

OLD 


146 


143 


Fig. 4. It may now be possible to OLD in the partially overwritten 


file. 


Alternatively, but only for ASCII programs and data, it’s 
possible to access the files on the first pass in non-header 
mode, read the whole file into a large string variable, 
delete the header and other unwanted characters at the 
beginning and transfer the string to another tape. 


INIT 

ON EOF (0) THEN 180 

PRINT @33,6:6,0, 

REM 3 IS THE hen LAST FILE 
FIND 3 

PRINT Kp 0,0,0 

aeut @33:A: 


0 160 
REN T THE FOLLOWING ROUTINE WILL DUMP AN ASCII FILE 
coer LARGE STRING. 


F 
REM D$ MUST BE LARGE ENOUGH TO ACCOMMODATE THE 
REM LARGEST STRING IN THE FILE 
DIN D 0$(308),C$(1>,BS«MEMORY-S80> 
=? 


C$=CHR(13) 
PRINT @33,0:8,0 
REM FIND THE beStRED FILE 


FIND 5 
ON EOF <O) THEN 348 
INPUT @33:D8 


IN) ee ee eee ee 
SWD-IHUSGN—-O 
8200000000 


IN NON-HEADER MODE 


DFacs 
aes s 1+LENCBS>,@> 


0 
REM NOW REMOVE THE FILE HEADER FRON B$ 
Benseaces, 87s LEN BE -2S8 


EM HOW STORE B$ ONTO ANOTHER TAPE 
PRINT @33,8:0,8,2 


ASCII program and data files may be recovered by inputting 
them into a large string variable. 


Fig. 5. 


While more complicated than the original, these routines 
are still far simpler than alternative ways of accessing lost 
files. And, of course, the best method is to follow the 
accepted programming practice of backing up program 
and data tapes. 


<<< 


REPRINTED FROM TEKNIQUES, VOL 3 NO 3 


CALL "DUP” and CALL "COMPRS"” 
in 4907 File Management 


by Jack Gilmore 
Tektronix, Inc. 


For file management, a CALL “DUP” command has 
many advantages over a CALL "COMPRS” command. 
When a disc is duplicated, several “clean-up” operations 
take place that may not occur during a compress 
operation: 


— 


Files may be shortened to just fit the data stored in 
them, (by specifying the last parameter of DUP as 1). 


N 


Each file is made contiguous again (after file expan- 
sion on the original disc caused the files to scatter). 


w 


All unused space is collected into one block. 


+ 


Library names with no files in them are deleted, thus 
recovering more space. 


— 4050 SERIES APPLICATIONS LIBRARY NEWSLETTER 


5. The system verifies that all data on the disc can be 
read. Files that cannot be copied correctly are 
reported (Error Messages 32 or 34), and copied as well 
as possible. 


Use the disc compress (COMPRS) command only after a 
"no space error” occurs—Message 55—during a CR Eate 
command with a contiguous attribute specified. CALL 
”"CMPRS” may be able to make one whole space on the 
disc that is large enough to hold the file in question, but it 
may be at the expense of increased access time to other 
files on the disc. The CALL "COM PRS” command is not 
intended for overall file clean-up activities, but only asa 
last resort when CREate fails with the contiguous 
attribute specified. 
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Extended String Input 


by Chuck Eng 
Tektronix, Inc. 


This quick routine overrides the 72 character buffer 
limitation when inputting strings. If you use this routine, 
you must incorporate any code peculiar to your own 
needs, such as error checks, data correction and so forth. 


DELET 
REM ome OF INPUT CHARACTERS 


Le 
DIM ASCL) 
40 PRINS sprees R RETURN TO END" 
er" 


@ GIN 41,Y1 
POINTER Xs Y» 


Z 
IF 2$<>"" THEN 
PexIT LOOP 


REM END OF INPUT» 
Ist 


PRINT 283 
NEXT I 
END 
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Underlining 


by Paul Brubacher 
Project Engineer 
Sinclair Radio Laboratories Limited 
Concord, Ontario, Canada 


When printing out several columns of numbers on the 
4051 Graphic Screen, it’s difficult to follow one line of 
type across the page. The following routine shows a 
method of drawing a line between lines of type. By 
including the counter ‘C’, it’s possible to underline every 
third line. 


C=-2 
FOR I=@ TO PI STEP 0.01 
Ha S THEN 180 


GIH x 
Eb v-0.2 
RDRAW 13800 


, 
PRINT I,SINCI>,COS( I>, IZI 
CaC+1 

NEXT I 

END 


Q 
1 
2 
3 
4 
5 
6 
7 
8 
9 
(:] 
$ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 


REPRINTED FROM TEKNIQUES, VOL 3 NO 3 — 4050 SERIES APPLICATIONS LIBRARY NEWSLETTER 


T A A POPE SES aA O E SE 


Extending The Tape File Header 


by Ed Sawicki 
Tektronix, Inc. 
Long Island 


The first 256 byte physical record in a 4051 tape file 
contains the 42 byte header record’ (plus CR and DC3 
characters). The remainder of this physical record can be 


98 REM 4 EXTENDED HEADER PROGRAM * 
190 DELETE A$, I$ 

REN CAUTION; File destruction occurs if total length 

A$ and I$ ın line 280 exceeds 254 bytes. 

DIN POTEET TETES 

REM Make a Carriage Return 

C$=CHR(13> 

“Enter file number i "3 


EM Set No Hradec Mode 
ERINT @33,0:0,0, 
O FIND F 
REM Get soe old header 
INPUT @33:A 
REM Add a ce and 0C3 
AS=ASECE 
bi ie 
PRINT “Enter extended header_:"} 
INPUT 1$ 
AS=ASLIS 
FIND F 
REM Print the entire header record 
PRINT 033: A$ 


REM Now go back and read the extended 
pe dader for our exanple 


REM read the ‘real’ header 


REM Read the extended header 
INPUT @33:A% 

PRINT A$ 

REM Restore no header mode 


PRINT @33,8:0,0,8 
END 
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used for storing a program name or a program descrip- 
tion. It can also be used as a “hiding place” for data, since 
it cannot be seen during a TLIST and cannot be accessed 
by BASIC when in header mode. One caution: don’t 
exceed a total of 254 bytes for the combined header. 


The example program demonstrates how the extended 
header can be created. To access the extended header 
record, go into non-header mode, FIND the tape file and 
execute an INPUT @33:A$,A$. The string variable A$ 
will contain the extended header record. 


Don’t forget to restore header mode! 


If the extended header contains file names, ashort BASIC 
program can be written to do an “extended TLIST.” 


Second 
Physical 


Record 


First Physical Record (256 Bytes) 


Extended 
Record Header 


(42 Bytes) 
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Shading Routine Update 
by John Carter 

Tektronix, Inc. 

Santa Clara, CA 


TEKniques Vol. 3 No. | carried the programming tip 
"Shading Routine for Complex Shapes.” Line 220 of that 
routine should be corrected to read: 


220 DIM Pi 2sN>sWC2sN419,XCNIS P12) 


With X dimensioned to N-1, the program will fail at line 
500 on a dimension error if the shape of the polygon 
causes exactly half as many draws per sweep as there are 


sides to the polygon. For example, if the sides of the 
polygon are six and the shape of the polygon is a block 
letter N, then the program must shade three areas in one 


sweep: 
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Dynamic Memory Management— 
Arrays 


by Chuck Eng 
Tektronix, Inc. 


Do you have an array to which you'll be adding an 
unknown quantity of data values? Use the 4051’s dynamic 
memory capability. First, dimension the array for some 
maximum value (statement 330). Then input from tape 
the number of data points, n(statement 350); redimension 
your array to fit the data values on tape (statement 360) 
and bring those values into your array (statement 370). 
Now redimension to the maximum (statement 380), and 
you can start keying in your additional data (statement 
400). Keep track of the number of data points by adding 
to n (statement 430). When finished, redimension the 


array to n (statement 460); save n and the data on tape 
(statement 480). 


200 REM Construct initial array on tape 
218 FIND 

PRINT @33:2 

PRINT @33:16,20 

REM Add to array 

DELETE A 


N1i=S@ 
Din ACNID 


> 
en finished press CRETURN] without an entry” 
"Enter AC"INFIP" De “J 


NPUT A$ 
IF A$=°* THEN 468 
Nene! 
ACH) BYVAL CAS? 
GO TO 400 
DIM ACN) 
FIND 1 
PRINT @33:N,A 
END 
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List by Pages 

by Dr. John W. Senner 
Oregon Regional Primate Research Center 
Beaverton, OR 


When writing programs longer than 50 lines, it is often 
convenient to list page-sized segments. This can be done 
automatically by including a series of PAGE; LIST 


mmm, nnn; and END statements in the USER- 
DEFINABLE KEYS segment of the program as shownin 
this example. This assumes that if User-Definable Keys 6 
through 20 are used in your program, they will be coded 
after their use as a programming aid has terminated. Also, 
note that statement numbers are incremented by 10. 


Several points to keep in mind: 1) Don’t include more 
than 20 lines in a page, which allows you room to make 


changes without erasing the page. 2) Initially, use 
“unusual” line numbers as parameters of the LIST 
command, as shown in lines 64 to 82, so that the number 
of lines in a page is not affected by making insertions and 
RENUMBERing. Later, after you are satisfied with a 
particular segment, you might want to change the 
parameters of the LIST to display only that segment, as 
shown in lines 24 to 42. 3) Overlap the pages by one line so 
that an inserted line can never “disappear” between pages. 
4) Delete these lines when the program is finalized. 


1,23 


100,268 


268,398 


398,688 


E 
688, 807 


807, 1007 


1007, 120? 


1207, 1507 


1307, 170? 


1707, 1907 
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Plotter LOAD Button Test 


by Bob Wheeler 
North Ogden, Utah 


When developing programs that use the 4662 Plotter, the 
following subroutine can be helpful. The subroutine is 
used to see if the Plotter’s LOAD button is down, before 
any data is sent to the Plotter. If the LOAD button is 
down, then the subroutine will print a message to the 
screen and wait for the LOAD button to be released. 
After the LOAD button is released, the subroutine will 
“return.” 


The subroutine tests the Plotter’s processor status word to 
see if or when the LOAD button is released. Lines 1010 
and 1020 read the processor status word. Lines 1030 and 
1040 test the PSW, and lines 1050 to 1080 print the 
message. 


2 
IF NOT((X“2-INT(X72)5%2> THEN 1090 
IF H THEN 1010 


Hei 
PRINT "RELEASE THE LOAD BUTTONGGG" 
GO TO 18018 

@ RETURN 
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4051 Drives Plotter Through RS-232 


by Mark Mehall 

Tektronix, Inc. 

Chicago 
4051-generated plots and drawings can be sent to any 
remote 4660 Series Plotter or 4010 Series Terminal over 
the Option 1 RS-232-C Interface. However, graphic data 
transmitted over the RS-232 Interface must address the 
Plotter surface coordinates, or the terminal screen 
coordinates, as binary numbers rather than graphic 
display units. Each coordinate is represented by a 12-bit 
binary number.* The 24-bits for the two coordinates are 
specified by transmitting five appropriate ASCII 
characters over the Interface; the ASCII value of each 
character contains a segment of the 24-bit pattern. 


The first ASCII character determines the five most 
significant bits of the Y coordinate (HIY). The second 
character specifies the two least significant bits of Y and 
the two least significant bits of X (XLOY). The third 
ASCII character specifies the five intermediate bits of the 
Y coordinate (LOY). The last two ASCII characters 
determine the five most significant bits of X (HIX) and 
the five intermediate bits of X (LOX), respectively. 


Converting GDU to Binary 


The following routine reads X, Y, Z data points from 
magnetic tape, converts them into “equivalent” RS-232- 
compatible ASCII characters and transmits the ASCII 
string to the Plotter or terminal in BASICI/O mode. The 
data points must be in the following form: Z = 20 or 21 


(DRAW or MOVE), X =0 through 130, and Y = 0 
through 100. In this case, the Plotter aspect ratio 
corresponds to that of the 4010-series terminals (Switch 
A = 6). 


Statement 130 defines the modulus function used to 
segment the binary coordinates into ASCII characters. 
Statement 160 initiates the GS control character (ASCII 
29) which places the Plotter in Graph Mode. Next, the X 
and Y data from tape are converted to binary coordinates 
(statements 230 and 240). Since we're using the COPY 
setting (Switch A = 6), the Plotter X-axis runs from 0 to 
4095 and the Y-axis from 0 to 3124. 


Statement 280 segments the HIY bit pattern. Bits six and 
seven of each of the five bytes remain fixed; that is, in the 
HIY byte, bit six is always on, thus, we add 32. The 
resulting eight-bit pattern is translated into the ap- 
propriate ASCII character (statement 290), and added to 
the outgoing string (statement 300). The other four bytes 
(XLOY, LOY, HIX and LOX) are segmented, bits six and 
seven modified, and translated into ASCII characters for 
transmission over the RS-232 (statements 310 through 
540). 


Z is now checked to determine whether it’s a MOVE or 
DRAW operation. If it’s a DRAW, just the coordinates 
are sent, since the Plotter assumes a DRAW if no GS 
control character precedes them. If it’s a MOVE, the GS 
control character is included at the beginning of the 
string. (Note the first command must include a GS 
control character to place the Plotter in Graph Mode. 


*Shortened addressing may be used; see page 2-26 of the 4662 
Interactive Digital Plotter User's manual. 


Therefore the first string is forced toa MOVE operation 
in statement 180.) 


After the data is transmitted, the string is set to null; the 
next data is then read from the tape and processed. 


REM FNM IS THE MODULUS FUNCTION 
REM WHERE MOD(A1,A2)=A1-SGNCXLIXIIAZ 
REM WHERE X=A1-A2 
DEF FNN«N»@INTCN-SGNCN- AZ) KINT: NAZ) KAZ? 
DIM 0$(8> 
REM SET G$ TO n GS ‘ADE 29> 
G$=CHR:29> 
peu. SET O$ (OUTPUT STRING> TO A GS (G$) 
O%=<Gs 
ON EOF (0) THEN 638 
REN READ THE DATA FROM TAPE 
IHPUT @33:2,%,Y 
O REM CONVERT TO 0-4093<(X> AND 8-3124¢Y) 
XeX713184095 
Y=¥/ 10043124 
REM CALCULATE FIRST CHARACTER 
its a ca diana CHI 
a2= 
TL =FNMCY7128>432 
I1$=CHR( 11> 
Os=0881$ 
REM CALCULATE SECOND CHARACTER (xXLOY> 
® REM ICHARC2)=MOD KY)» 4>%4+MOD(KX, 49496 
a 


2=4 

I 2="FHMCY > #44FNMCX +96 

I$=CHR: 12>) 

Os=0seI$ 

REM CALCULATE THIRD CHARACTER ‘LOY? 


eet or 
MAME KD 
Ge2Ocoooo 


Nee 
eww 


rey ICHAR(3>=MOD (KY 74, 329+96 


232 

IB=FNNCY 749496 
1$=CHR« 13> 
Os=08t 


seis 
REM CALCULATE FOURTH CHARACTER (HIX? 
REM_ICHARC4)eMODCKX- 1265329432 


A2232 
L4=FNMCX/ 128) +32 
18=CHRC14) 

Os=0sals 

REN CALCULATE FIFTH CHARACTER (LOX) 
REM ICHAR<(S)=MOD(KX-4, 32>+64 

A2=32 

ISaFNACX./4)+64 

13=CHR(1S> 

Os=0sels 
PEM IF Z IS 21 IT°S A MOVE (2@ IS A DRAW) 
IF Z=20 THEN 640 

REM CHECK IF A MOVE, IF SO INSERT A GS (G$) 
OS*REP(GS, 1,0) 

REM OUTPUT THE CHARACTER 

PRINT @40:08; 


GO TO 210 
PRINT “DONE.” 
END 


Page 2-25 of the 4662 Interactive Digital Plotter Users 
manual graphically depicts the binary coordinate values. 


2 
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Don’t CALL "MOUNT” With Null 
String 


by Pat Kelley 
Tektronix, Inc. 


The CALL “MOUNT” command always generates a 
device status message. A target string variable must be 
specified in the command to receive this message. 
Inadvertently, the 4907 File Manager Operator’s Manual 
indicated that to save time the message could be 
eliminated by specifying a null string rather than a target 
string variable. To save time, you don’t need to look at the 
message, but it is always generated and must have a target 
string to receive it. 


CALL "MOUNT". 0, A$ 


Lea! Target String 


nen 
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4051-size standard graticule. 


Reproducing Oscilloscope 
Graticules on the 4051 


When you’re examining waveform data graphed on the 
4051 screen*, it helps to have a reference grid. The 
following subroutine developed by Nathan Oxhandler of 
Tektronix, draws oscilloscope-type graticules on the 4051 
screen, or on any 4051 GPIB-controllable display device. 
Five different grids are available: standard, linear-log, 
log-linear, log-log and plain. 


1 
2h 
3 
$ 


3395 REM SUBROUTINE STARTS HERE 

9030 PAGE 

3010 PRINT “WHICH GRATICULE DO YOU WANT?_OISTANDARD. i, LINEAR, 

3020 PRINT "21X LOG,Y LINEAR 3IX LOG,Y LOG_4IPLAINTIL 

9830 INPUT A@ 

3040 WINDOW 8,100, 1 

3058 UIENPORT 2-5) 157-5, 8, 100 

9060 PAGE eo: 

3078 FOR A=@ TO 10@ STEP 10 

3888 IF A@*@ AND (A=30 OR A=70) THEN 9150 

9090 IF AB=l AND (A=1@ OF A=50 OR Angas THEN 

3100 IF O20 AND ASS@ OR CABS2 AND (AeA OR ASA OR An100>) THEN 9178 
AX 


Y LOG" 


10 

20 NEXT bi 

30 GO TO AB OF 9198,9198,9190,9148 
40 RETURN 

5@ AXIS @0:2,0,A,A 

60 A 

78 
8i 
Oi 
1 


ð Ce fosereosiern 

228 GO TO AG OF 9276, 923 0.3270 
30 G0 105 AB OF 9240, 9340, 39340 
9248 NEXT 


OOO OOWO DOU OOD 
r 


1 
1 
1 
1 
1 
s1 
1 
1 
91 
2i 
2 
2 


3488 GO To 9240 


A subroutine to produce five different 4051-size graticules. 


82 


Remember the CTRL Rubout (CHR 13) in statements 
9010 and 9020 format only the 4051 Graphic Screen; they 
are disregarded if sent to any peripheral. 


4051-size log-log graticule. 


While the above routine draws a 4051 screen-size grid, the 
following routine offered by Dick Bailey, Tektronix, 
duplicates the Tektronix 7000 Series Oscilloscope 
graticule. 


L1S300,456 
300 pate <DRAW GRATICULE> 
Rr 


VIEWPORT 38, 120 bear! 
ee 0, a51isiol.4 1920.6 


28.498,255,511 
1.2,1¥*162.4+101.4 


N 
UITEWFORT 38,130,8, 100 
a 8,511,8,1823 


OM 
RETURN 


A routine to draw the Tektronix 7000 Series graticule. 


Incorporate either of these routines into your graphing 
program and you'll have a quick reference grid for your 
signals. 


FREQUENCY B 
1824 Hz. 


The Tektronix 7000 Series graticule. 


*See "The 4051/9712AD; An Automatic Waveform 
Acquisition System,” and”New ROM Pack—Adds Fast 
Graphing and Data Analysis Functions to the 4051,” 
TEKniques Vol. 2 No. 7. 
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Easy Curves 


by Howard Sanders 
Tektronix, Inc. 


You can draw any length of curve ranging from brief arcs 
to full circles using the following routine. Simply position 
and digitize the three points of the arc in a 
counterclockwise sequence using the 4952 Option | 
Joystick. The 4051 will draw a smooth curve through 
these points. The coordinates developed in statement 
1000 could be stored in a matrix and saved on tape for 
future use. 


The possibility that any of the three points digitized will 
be identical is extremely remote. Hence, to save code 
error checks have been omitted. However, if it should 
occur, a size dimension error will be generated. 


100 REN SUBROUTINE TO CHLCLLATE 
REM AN ARC FROM THREE POINTS 


D3=-90 
C3=83/SIN(D3> 
D3=03+02 
B3eAINCDZ SCS 
A3=COS(D3> 
REM Calculate THE RADIUS OF THE ARC 
K=! 


=8272 
H=(A3%A3+B3¥B3-24K3B3) “(24A3) 
R=SORCHEH+K SK) 
SET THE CENTER OF ARC TO 0,8 


B3=B3-K 
REM FIND THE CENTER OF THE ARC 
Cl=-Al 


C2=-8 

D4=ATN(C2/C1) 

05=C2/SINCD4) 

D6=04-02 

C1=COS(DE>805 

C2=SINCDE>#D5 

E1=C1+X1 

E2=C2+Y1 

REM BEGINING AND END ANGLES OF ARC 
Zi=ATNCCYI- ati E1)> 
ZZ=ATN((Y3-E2)/ 

21=INTC21) 

22=1NT(22> 

IF Y1-E2>® AND X 

IF Y¥1-E2<@ AND X 

IF Y1-E2<@ AND 

co TO 850 

212214180 

GO TO 850 

ziazia 


THEN 800 
THEN 628 
THEN 646 


THEN 890 
THEN 918 
THEN 930 


ager 
0 TO 940 
S205 6842 
IF ziaaa THEN 960 


9 VE X1, 

990 FOR mA To 2 22 STEP 

1000 DRAW gt Lose t SRTEDSSINCIDAR 
1018 NEXT I 

1020 DRAW 43,3 


NN ess 
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RETURN Recovers Memory 


by Pat Kelley 
Tektronix, Inc. 


Branching out of a FOR/ NEXT loop ina subroutine will 
not limit memory, provided the subroutine is exited 
through a RETURN statement. When the RETURN 
command is executed, the 26 bytes of memory dynamical- 
ly allocated to keep track of a FOR/ NEXT loop will be 
freed. The following example illustrates the recovery of 
memory. 


LIs 

100 INIT 

110 FRINT MEMORY 
12@ GOSUB 500 

130 PRINT MEMORY 
i40 END 
500 G=0 
510 FOR I=i TO 18 
520 G=G+ 

5370 IF G=5 THEN SSO 
548 NEXT I 

558 PRINT MEMORY 
568 RETURN 
RUN 

38505 

28473 

30505 


Notice that the six bytes allocated to store the return 
address are also freed. 


—————— U 
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Specifying Optimum Number of 
Directory Chains in Disc Format 


by Jack Gilmore 
Tektronix, Inc. 


The five digit sequence at the end of CALL FORMAT” 
and CALL ”"FFRMT” commands controls how the file 
directory is stored on the disc and affects the access time 
to a file name. Five storage levels are possible on a disc 
with no limit to the number of libraries or files on each 
level (other than disc space). ! 


Each level may have one to ten “chains.” A chain is a 
sequential listing of library and file names. If there is more 
than one chain ona level, hashing decides in which chain 
the name is placed. Therefore, access time to a file is 
decreased as the number of chains are increased since the 
File Manager is routed through the proper chain and 
doesn’t have to search all names on that level. 


The five digits at the end of the two format commands 
specify the number of chains at each level. And the 
number of directory chains at each level should be 
determined by the number of library names or file names 
expected at each level. A general rule of thumbis to divide 
the number of file names at each level by five to arrive at 
the appropriate number of chains for that level.2 For 
example, a disc with mostly two level names suchas heavy 
use of SCRATCHLIB with over 50 file names should be 
formatted with these five digits as ”1,10,1,1,1” rather than 
“1,1,1,1,1.” On the average, one fifth as many disc reads 
would be required to access a particular file in the first 
example. 


A diagram of the two chaining structures with 50 files in 
SCRATCHLIB follows. In the first example, the proper 
sector is accessed immediately by hashing the file name to 
determine which chain to follow.3 The second example 
may require reading 10 sectors to find the right name. 


110.1.1.1 
VOLUME LABEL 
FIRST LEVEL 


SECOND LEVEL 


SCRATCHLIB 


MYLIB 


Example 1. Chaining routes when the last five digits in CALL "FORMAT" or CALL 
"FFRMT” are 1,10,1,1,1. 


Example 2. Chaining route when the last five digits in CALL "FORMAT" or CALL 
"FERMI" are 1,1,1,1,1. 


'The fifth storage level may contain only file names. 
? Maximum number of chains per level is 10. 


3Five library or file names fit into one sector of disc space. 


uaa aaa aaaea 
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Early Detection of Tape Wear with 
4924 Tape Drive 


by Jack Callahan 
Honeywell Electro-Optics Center 
Lexington, MA 


The 4924 Tape Drive READ ERRORS command has 
helped us reduce the loss of data caused by tape wear. 
Appendix B of the 4924 Service Manual (070-2131-00) 
describes this command. 


Each time the 4924 reads a physical record from the tape, 
it computes a ”checksum” from the first 256 bytes of the 
record and compares this checksum with the final 


“checksum byte”. If they do not agree, a ”read error” has 
been detected; the 4924 reverses the tape and tries again to 
read the record. The 4924 keeps track of these reads 
following checksum failures, but the user is only aware of 
them when a program aborts following 10 unsuccessful 
reads. 


When the READ ERRORS command 
INPUT @D,24:E (D=device#) 


is sent from the 4051 to the 4924, the 4924 replies with a 
count of reads following checksum failures that have 
occurred since power-on or since the last interrogation. 


Thus, by introducing the following statements at the end 
of file read routines from the 4924, checksum failures that 
indicate possible tape wear can be determined before they 
reach the fatal 10. 


T @0,24:E 
s9 THEN 1048 
e-reads were necessary to recover this file" 
replacement may be necessary" 
Continuation of program 


String Sort 


by J. J. Brown 
Boart Hardmetals (Europe) Ltd. 
Shannon Airport, Co. Clare, Ireland 


WORD OR CHARACTER STRING SORTING” 


This sorting routine alphabetizes words or character 120 PRINT ¿senten THE NUMBER OF CHARACTERS IN THE LONGEST HORD/STRING" 
strings that are input in any sequence. The sorted list may iSo Inu Hn a ee 

be displayed on the screen, or it may be sent to the printer y ADINENS roneo TO SUIT NO OF HORDS AND MAX WORD LENGTH” 
through User Definable Keys 6 and 7. User Definable 208 stint en saitek HOROSE 

Keys 8 and9 repeat the sorted list. The number of memory $38 Go 5o T0 AE STRING IS LONGER THAN ORIGINALLY STATED" 

bytes required is equal to the length of the longest word 258 PRINT (RECENTER: OR MERUN 

(or string) multiplied by the number of words (or strings), 308 IF LEN fon. THEN 249 


290 IF LEN NCBS>=L THEN 320 
$=B: 


plus 1700 bytes for the routine. 


350 M 

360 fore ist TO M1 STEP L 
378 izelel 

38@ CS=SEGCAS, lL). 


410 eee SEG Ces E? 

420 Ag=REP<DS, 1 

438 AsaREPCoSy 12,0) 
ani 


$50 NEX 

460 IF Sel THEN 348 

478 IF te i THEN 550 

430 PRIN ol sd 

490 Eon Tet Tho M STEP L 
a DLD, 


PRINT SORTED LIST ON SCREEN 


4! 
550 PAGE 

360 FOR I=1 TO M STEP L 
570 EgneEGCAB DL? 

580 eit T E$ 

590 NEXT I 

600 END 
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Don’t Abort SAVE To Disc 


by John Carter 
Tektronix, Inc. 
Santa Clara Annex 


Did you ever want to abort a SAVE to the 4907 disc, 
especially when it’s a long one? Well, don’t! The only safe 
way to terminate a SAVE isto let it happen naturally. Any 
attempt to abort a SAVE by pressing the 4051 BREAK 
key or by opening the 4907 disc drive door may interrupt a 
write to the directory and leave the directory chain 
broken. And you can’t MOUNT a disc if the directory is 
damaged. 


ee 
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4051 Data Entry Routine 


by Raymond DeMers 
Tektronix, Inc. 
Rochester, NY 


This sample program demonstrates how a Data’ Entry 
routine may be programmed on the 4051. This approach 
uses the POINTER command to permit the asterisk key 
to emulate the ENTER key found to the right of many 10- 
key pads. It overcomes the need to use the 4051 RETURN 
key which is awkward for trained key operators. 


The POINTER command in statement 200 returns the X 
and Y location of the arrow on the screen, as well as the 
character entered in Z$. Here, only Z$ is used. Statement 
210 tests the ASCII value of Z$ to restrict entries to 
numbers and necessary control characters. An array is 
developed as the data is entered; after the last entry, the 
routine displays the data. 


z 
Sere" taIps 
14 


ZZZ 
3 


A 
LUE AND & TO ENTER. 
USE 7 TO END AND DISPLAY ARRAY. 
M SELECTED KEYS 


TREA 
sse8sceees 


SoASmaaes esom 


AEE OR ASCCZ$)>937 THEN 2 
ASC(2$>-41 OF 510, 286, 206; 218,410,570 


SET SIGN FOR NEGATIVE VALUE < = ADE 43) 


SuUGuNnn 
P= OUN — 
gosso 
naz 

a t 
coun 


INPUT IS NUMERIC 


oe, DATA ITEM COMPLETE 
+ 
AcE SVAL (NSD 88 


poe eee 


4 
4 
si 
3 
s: 
3. 
5. 


A GID 
ry 


NT" 
PL "JEJ" ENTRIES ARE: 
630 PRINT B 


640 END 


With the ENTER key problem solved, the excellent string 
and array handling capabilities of the 4051 permit you to 
develop a Data Entry System which could include such 
features as: 


è Range Checking 

e Check-digit Calculations 

e Zero-fill 

e Justification 

è Verification 

e Must-fill Field Checking 

© Testing for Alpha or Numeric 


LE RT STN ee 
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Coordinate Transformation 


by Stan Jensen and Ed Yotter 


California Air Resources Board 
Sacramento, CA 


The Air Resources Board (ARB) in cooperation with the 
Department of Transportation (CALTRANS) develops 
and operates computer models of air pollutant emissions 
from motor vehicles. Part of the input data for these 
models is the geographic description of traffic analysis 
zones (TAZs), which are analogous to census tracts. 


The task of the Air Resources Board’s Planning Division 
staff is to digitize the boundaries of the zones, which have 
been drafted on USGS 7'4’ maps, and record the 
Universal Transverse Mercator (UTM) coordinates. The 
UTM coordinate system was selected because it is a 
rectangular Cartesian system which uses metric units, and 
because it is also used in other ARB projects. The 714’ 


map series was selected for its statewide coverage, 
convenient scale (1:24000) and the UTM reference (“tick”) 
marks on the map edges. 


The design of the coordinate transformation procedure 
had three major requirements. Since several hundred 
maps were to be digitized, the transformation control 
points had to be standard features on each map sheet; 
they could not require manual drafting or visual inter- 
polation. Secondly, since the Tektronix digitizing system 
used a 4956 Graphics Tablet (20” X 20” surface), and, 
since the maps are about 19” X 23”, the control points 
must lie on the tablet regardless of the map’s orientation 
or positioning. Finally, the transformation equation 
should include terms for rotation, scaling and translation, 
should be accurate, and should still manage to transform 
coordinates quickly. 


The program listing and sample run show howall of these 
requirements have been met. The map is positioned onthe 
graphic tablet so the left edge and right edge tick marks 


for any Y value (3767000 in the example) are simul- 
taneously on the tablet. The map is then shifted up or 
down until the top or bottom edge is also on the tablet. 
The program is RUN, the operator digitizes the left tick 
mark (point #1), the right tick mark (point #2) and the top 
or bottom tick mark (point #3). The UTM X coordinate 
for point #3 and the UTM Y coordinate for points #1 and 
#2 are then input to the Graphic System. The program 
determines the equations for two lines parallel to the 
UTM axes and passing through the three control points, 
solves the equations simultaneously to determine the 
digitizer coordinates X(4), Y(4) of an interior point and 
uses this point with the known map scale (1:24000) to 
calculate the coefficients of the transformation equation. 


This transformation procedure is easy and quick to use, 
accurate to within one digitizer unit anywhere on the 
tablet and will transform points at a rate of about 12 
points per second. 


REM DIGI”TRANSFORM 11-APR-79 


DIM K(4), C4) 


G=8 

PRINT "LDigitize point # 1, 2 and 3° 
FOR P=1 TO 

PRINT “oo 


eet ated 
SOOVAUNSUN-@ 
LLLI] 


NEX 
PRINT. “Enter (in UTM meters) the X-coordinate of point @ 3" 
"and the Y-coordinate of point # 1 and # 2" 


Mi=(Y(2)-Y(1))7(X(2)-X(1)>) 

Bi=%(1)- loans 

M2=-C1/M 

B2=¥(3)- 403) 4N2 
X(4)=(B2-B1)/(M1-M2) 
Y(4)=M1$X(4)+B1 
HI=SOR((XC(2>-X(1))t2+(Y(2)-Y(1))t2) 
Ci=(X¢(2)-X(1))/H1 

Si=(Y(2)-Y(1))ZH1 

> lla 


C=U1-AXX(4)-BAY C4) 
D=U1-AKY(4)+BEXC4) 
PRINT “_A="3A,"_B="3B,"_C="5C,*_D="5D 
PRINT gadigitize, points to be transformed.” 
INPUT @G:X1,Y1, 
PRINT EHE coordinates : ";X1;",";Y1;"I"; 
UL=A$X1+B8Y1+C 
U1=ASY1-BEX14+D 
28 PRINT “UTM coordinates : "i INT(U1+0.5);","} INT(U1+0.5) 
GO TO 388 


100 REM DIGI/TRANSFORM 11-APR-79 by Stan Jensen ⁄ CARB 
118 REM Following REMarks keyed to progran listing wherever possible. 
EM Vectors for digitizer coordinates 
GPIB address for 4956 digitizer t20" x 20") 
Control points : 
# i : any UTM tick mark on left map edge 
# 2 : tick mark on right edge with same UTM Y as @ 1 
# 3 : any UTM tick mark on top or bottom edge 
Line # 170 signals operator 
The_three control Roane provide one UTM X and Y : 
# 3 provides the UTM 
# 1 and @ 2 provide the UTM Y 
Slope of the line between points 1 and 2 
Y-intercept of Line 1-2 
Slope of a line ("Line 3-4") perpendicular to Line 1-2 
Y-intercept of Line 3-4 
Digitizer coordinates of the point (*# 4") with the 
UTM coordinates entered for the three control posate 
Hypotenuse of a right-triangle between points 1 and 2 
Cosine of rotation from digitizer to UTM 
Sine of rotation from digitizer to UTM 
"SCALE" : converts digitizer units to UTM meters @ 1:24000 
A-term (rotation’scaling) 
B-term (rotation/scaling? 
C-term (rotation/scaling/translation> 
D-term (rotation/scaling’translation> 
Display coefficients of digitizer-to-UTM transformation 
Start of endl ese loop to transform points 
Digitize a point 
Signal input and display digitizer units 
Transform digitizer X and Y to UTM X 
Transform digitizer X and Y to UTM Y 
Display UTM meters (accuracy = ~3 meters @ 1:24000) 
Repeat ad nauseun 


Digitize point ® 1, 2 and 3 

Ear Cin UTM meters) the X-coordinate of point @ 3 
the Y-coordinate of point @ 1 an 

4E9000, 3767080 


A=2, 92019383149 
B=-0, 873389459432 
C=467088. 684211 
D=3757562. 59424 


Digitize points to be transformed. 
Digitizer coordinates : 357,3124 UTM coordinates : 463403, 3766997 


Digitizer coordinates : 3968,2045 UTM coordinates : 476890, 3767000 
Digitizer coordinates : 1020,1221 UTM coordinates : 469001, 3762019 


— 


= 


COORDINATE TRANSFORMATION 
Control Point Locations 


4956 digitizer 


/ 


N USGS 7 172’ map | 
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Install ROM Packs Before Power Up 


by Pat Kelley 
TEKniques Staff 


Install ROM Packs into your 4050 System before power 
up. Plugging a ROM Pack into or removing it from your 
machine with the power on can cause permanent damage 
to the ROM Pack or tothe Central Processing Unit. Your 
ROM Pack is an extension of your 4050 System’s 
circuitry. When the circuits are energized (power turned 
on), fiddling with this circuitry by any means—whether 
through ROM Packs or by taking a screwdriver to the 
inside—can cause damage. (The latter could cause 
damage to yourself, also!) 


A second reason for installing ROM Packs before power 
up is so the 4050 System will know they are there. Upon 
power up the system checks which ROM Packs are in 
place: it won’t repeat this survey until a power down and 
another power up. Consequently, should you manage to 
installa ROM Pack after power up without damaging the 
machine, the system won't be aware of it. Therefore, any 
call to the extended functions of that ROM Pack will 
result in an error; and program execution will halt. 


SELES EES CS E eR AE TT RE 
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Following the UDK Path 


by John Carter 
Tektronix, Inc. 
Santa Clara Annex 

and Dan Taylor 
Tektronix, Inc. 
Wilsonville 


The User-Definable Keys (UDK) are powerful tools for 
controlling program flow. However, newcomers to the 
4050 Series may not understand all of the operational 
characteristics, so let’s trace the path of the User- 
Definable Key operations. 


Pressing User-Definable Key = GOSUB 


Pressing a User-Definable Key is the same as executing a 
GOSUB statement from wherever you are ina program. 
Whena UDK is pressed, program control is transferred to 
the line number which is four times the UDK number. For 
example, pressing UDK | transfers program control to 
line number 4; pressing UDK 2transfers program control 
to line number 8, and so on upto UDK 20 which transfers 
control to line number 80. (The line numbers associated 
with the UDK are fixed and cannot be changed.) 


Note that each of the 10 User-Definable Keys represents 
two functions. That is, if the first UDK in the upper left 
corner is pressed, user-definable function | (beginning at 
line 4) is executed. If this same key is pressed in 
combination with the SHIFT key, user-definable func- 
tion number |1 (beginning at line 44) is executed. 


Two Environments 


The User-Definable Keys may operate in either a SET 
NOKEY or SET KEY environment. SET NOKEY is the 
default environment; power up, or the commands SET 
NOKEY or INIT put the system inthis mode. SET KEY, 
the alternate environment, may be specified directly from 
the keyboard or under program control. 


These two environments allow you to have a program 
which may be interrupted, but in which critical sections of 
code can be protected from interrupts.’ 


If a program is running while the 4050 system is in SET 
NOKEY mode, the BASIC interpreter will not respond 
when a UDK is pressed. However, in the SET KEY 
environment, when a UDK is pressed while a program is 
running, the BASIC interpreter completes the current 
instruction', and does an implicit GOSUB from that 
point inthe program to line 4, 8, ..., or 80. Now, let’s take a 
closer look at the operating characteristics of each 
environment. 


SET KEY: The Interrupt Environment 


Although a program is running, pressing a UDK causes 
the interpreter to complete the current instruction and do 
an implicit GOSUB from that point inthe program tothe 
statement associated with that UDK. The 4050 System 
stores the return address (the statement in the main 
program following the interrupt) in its memory. The 
subroutine execution continues until a RETURN state- 
ment is encountered, which returns execution tothe main 
program, or until an END statement is reached, or, of 
course, a STOP?. 


Pressing a UDK often leads to another subroutine. For 
example, pressing UDK | directs program execution to 
statement 4. Statement 4 might be a GOSUB to a larger 
subroutine. Once this larger subroutine is executed anda 
RETURN encountered, program execution is returned to 
the statement following statement 4. Therefore, another 
RETURN must be included in a statement following 4 in 
order to return to the main program. This follows normal 
programming rules, however, because pressing UDK | is 
an implicit GOSUB and not specifically coded, coding 
this second RETURN is often overlooked. 


If in the previous example statement 4 had transferred 
control to another subroutine through a GOTO or 
IF...THEN statement, when a RETURN was en- 
countered, execution would have been returned to the 
main program, again following normal programming 
rules. 


Therefore, pressing a UDK is the same as executing a 
GOSUB; some memory is taken to store the return 
address, and a RETURN statement must be included for 
this UDK-GOSUB in order to return to the interrupt 
point. Figures | through 4 are examples that illustrate the 
paths we’ve been talking about. 


'If the instruction is an INPUT statement (from the keyboard), the 
INPUT is considered to be completed. If any characters/digits had been 
keyed in before the UDK was pressed, they are used to satisfy as much of 
the input-list as possible. 


2A STOP will not clear the return address from memory; either 
RETURN or END will release the memory reserved for the return 
address. 


4] GOSUB 500 Main Program 


Interrupt Pt 
(Continue) 


Return 


Fig. 1. In SET KEY environment, the program is interrupted by pressing 
UDK 1. This causes an implicit GOSUB to statement 4. Another 
GOSUB at statement 4 directs execution to statement 500. 
When the routine is completed a RETURN directs the interpreter 
back to statement 5, execution continues there until the second 
RETURN at statement 7 returns the interpreter to the main 


program. 


4] GOSUB 500 Main Program 


(Continue) Interrupt Pt 


Fig. 2. In SET KEY environment, the program is interrupted by pressing 
UDK 1. This causes an implicit GOSUB to statement 4. Another 
GOSUB at statement 4 directs execution to statement 500. 
When this routine is completed, a RETURN directs the inter- 
preter back to statement 5. However, no RETURN is encoun- 
tered so program execution continues with statement 5 and 
those following. 


Main Program 


Interrupt Pt 
(Continue) 


Fig. 3. In SET KEY environment, the program is interrupted by pressing 
UDK 1. This causes an implicit GOSUB to statement 4.A GOTO 
directs execution to statement 500. When this routine is 
completed a RETURN directs the interpreter back to the main 
program. 


89 


a eriment with SET KEY and SET NOKEY environments 
b REN using USER DEF IHABLE KEY #1 (statement 4> 
3 GO TO 1 


INIT 
7 GO TO 120 


MAIN PROGRAM 

The USER DEFINABLE KEYS work only after all routines 
2 REM are completed unless SET KEY is performed. Therefore, 
$ REM without statement 110 USER DEFINABLE KEY #1 could not 
4 REM interrupt any operation. 
@ SET KEY 
@ FOR J=i TO 20 
M The I loop 

o 108 


o0 REM 
1 REM 


1 
1 
1 
1 
1 
1 
1 


N= S2® 


is for a pause only} press UDK @1 during this loop 


eee 
w 


OND 
CELIT] 


500 REM THIS 1S THE INTERRUPT ROUTINE. 

510 PRINT “INTERRUPT, I=” 

520 REM Without the RETURN statements we could not resume the progran. 
530 RETURN 

540 END 


Fig. 4. If line 5 had not been a RETURN, the program would have 
continued execution at statement 5 rather than returning to the 
main program. Statement 6 would have initialized the program, 
putting it into SET NOKEY environment. Statement 7 would 
begin the loop a second time; but this time around, pressing 
UDK 1 would not interrupt the loop. 


SET NOKEY: The No-Interrupt Environment 


The BASIC interpreter cannot respond to a UDK 
interrupt while the system is operating under program 
control in SET NOKEY mode. However, the system will 
set a flag indicating that a UDK was pressed, eventhough 
the interpreter couldn’t respond. Each UDK has its own 
corresponding flag. 


Using The Two Environments 


Should a SET KEY statement be included in a program 
(executing in a SET NOKEY mode), the moment that 
SET KEY command is executed, the interpreter will 
recognize the UDK flag(s). It will immediately branch 
(implicit GOSUB) to the statement associated with the 
first UDK pressed and execute that statement. If this 
statement is not a SET NOKEY, the interpreter will 
recognize the next UDK flag in the queue, branch to the 
statement associated with that flag’s corresponding 
UDK, and execute that statement. If the interpreter does 
not encounter a SET NOKEY statement, it will continue 
to recognize the interrupt flags, and continue to execute 
these implicit GOSUBs until it reaches the last routine. 
Following normal programming rules, it will execute this 
last routine, return (provided a RETURN statement has 
been included at the end of the subroutine) to the second 
statement of the previous routine, execute that routine, 
and so on until all of the subroutines have been executed. 
This procedure is no different than if you had coded a set 
of nested subroutines, but you have the advantage of 
branching to the subroutines when you want to, by simply 
pressing the User-Definable Keys. 


If a routine contains code which cannot be interrupted, 
the statement associated with the UDK (UDK number X 
4 = statement number) should be a SET NOKEY com- 
mand. followed with a SET KEY command at the end of 


the critical code. The following example illustrates prope: 
use of SET KEY and SET NOKEY. 


GO TO 100 
SET NOKEY 
GOSUB 500 
SET KEY 
RETURN 
SET NOKEY 


HMR 


o 0 >y 


13 GOSUB 700 
14 SET KEY 
15 RETURN 


INIT 
PRINT "GBEGIN PROGRAM" 
FOR I=1 TO 125 

PRINT Ij 

NEXT I 

SET KEY 

PRINT "JJEND ROUTINE" 
END 


PRINT "_SUB 500 - CRITICAL CODE - " 
PRINT "2ND LINE OF 500" 
PRINT "3RD LINE OF 500" 
RETURN 


PRINT "_SUB 600 - CRITICAL 
PRINT "2ND LINE OF 600" 
PRINT "3RD LINE OF 680" 
630 RETURN 


PRINT " SUB 700 - CRITICAL CODE - " 
PRIHT "2ND LINE OF 700" 

PRINT "3RD LINE OF 700" 
RETURN 


5 86 
105 106 107 1 
123 124 125 
CODE - 


50i 
2ND L 500 
3RD LINE OF 500 


SUB 680 - CRITICAL CODE - 
2ND LINE OF 600 
3RD LINE OF 600 


SUB 788 - CRITICAL CODE - 
2ND LINE OF 708 
3RD LINE OF 708 


END ROUTINE 


Fig. 5. The environment defaults to SET NOKEY with the INIT 
command at statement 100. As the loop at statements 
120—140 executed, we pressed UDK 1, 2, and 3 respectively. 
The BASIC interpreter ignored these interrupts until it reached 
statement 150. When it executed the SET KEY command, it 
immediately recognized the UDK 1 flag and branched to line 4. 
Here it executed a SET NOKEY which prevented it from 
recognizing the other flags. Therefore, it continued to execute 
the routine associated with UDK 1. 


Returning to line 6, it encountered a SET KEY which enabled it 
to recognize the UDK 2 flag. It branched to statement 8, 
executed a SET NOKEY, and executed the routine associated 
with UDK 2. The SET KEY at statement 10 allowed it to go 
through the same procedure for UDK 3. 


Statement 15 returned the interpreter to statement 11 , which 
sent it to statement 7, which directed it back to the main 
program. 
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GO TO 100 
SET NOKEY 
GOSUB 580 


INIT 

PRINT "GBEGIN PROGRAM" 
FOR I=1 TO 125 

PRINT I; 

NEXT I 

SET KEY 

PRINT "JJEND ROUTINE" 
END 


PRINT "_SUB 500 - CRITICAL CODE - " 
PRINT "2ND LINE OF 509" 

PRINT "3RD LINE OF 500" 

RETURN 


PRINT "_SUB 600 - NON CRITICAL CODE - " 
PRINT "2ND LINE OF 686" 

PRINT "3RD LINE OF 600" 

RETURN 


PRINT "_SUB 700 


~ CRITICAL CODE - " 
PRINT "2ND LINE OF 760" 

PRINT "3RD LINE 

RETURN 


SUB 788 - CRITICAL CODE - 
2ND LINE OF 700 
3RO LINE OF 700 


SUB 688 - NON CRITICAL CODE - 
2HD LINE OF 680 
3RD LINE OF 680 


END ROUTINE 


Fig.6. The same steps were followed as in Figure 5 through the UDK 1 
routine. However, upon branching to statement 8, a SET NOKEY 
was not encountered. 


Consequently, the interpreter recognized the next flag and 
branched to statement 12, executed that routine, and returned 
to statement 15. Statement 15 directed it to statement 600 
where it executed the UDK 2 routine and returned to statement 
9. This statement returned it to statement 7 which directed it to 
the main program. 


Regardless of the SET KEY/SET NOKEY environment, 
if the 4050 system is idle (no program is being executed), 
pressing.a UDK will place the system under program 
control beginning at the statement number which is four 
times the UDK number. Because the program was 
initiated by an implicit GOSUB from the idle mode, when 
the BASIC interpreter encounters the RETURN state- 
ment associated with this implicit GOSUB, the system is 
returned to idle mode. 


SET KEY/SET NOKEY = Highly Flexible Programs 


Thus, with a basic understanding of the User-Definable 
Keys and their two operating environments, highly 
flexible, user-oriented programs may be created. 


—— ee 
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Recover Data After Magnetic Tape 
Read Errors 


by Dale Grace and Bob Passeri 
Combustion Power Company 
Menlo Park, CA 


We use the 4051 Graphic System as a controller and 
recorder in a data acquisition system (Figure 1). Over 50 
parameters are sampled, converted to engineering units, 
and stored on magnetic tape for data reduction at a later 
time. In addition, we can use the 405I’s graphic 
capabilities to display values of certain parameters over 
time. 


TEKTRONIX 4051 


COMPUTER l! ad DATA TAPE 


CARTRIDGE 


TWO 40 CHANNEL 
SCANNERS 
TIMER 


DIGITAL 
VOLTMETER 


Fig. 1. Data Acquisition system at Combustion Power Company, a 
division of Weyerhaeuser Company, at Menlo Park, CA. 


Unknown environmental causes occasionally induce 
magnetic tape read errors (message 53 or 63). In order to 
increase the reliability of our data acquisition system, we 
have developed a simple means to recover nearly all of the 
information stored beyond the error. An external tape or 
disc device is required. We use the following procedure: 


1. Read the tape up to the error and store the data onthe 
external device. 


2. Write over the initial data through the point of error 
with a placeholding number. Keep the format the 
same as the original data. Halt program execution 
with a STOP command. 


3. Remove the data tape from the internal drive and re- 
insert. This procedure prevents a logical EOF from 
being written. 


4. Read the data tape again and store the data on the 
external device, beginning with the actual data after 
the placeholding numbers. If an external tape drive is 
used, store the data in a different file than that used in 
step 1. If a random access disc file is used, store the 
data in sequential records. 
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5. Reconstruct the data tape by reading the data from the 
external device file(s) and record sequentially on the 
original tape. 


The following software code demonstrates this general 
technique for data recovery. In this case 400 sets of binary 
data (each data set consisting of 62 parameters) were 
recovered after a magnetic tape error. 


FILE “RECOVER” 4-12-79 
Atttt READ IN INITIAL DATA #t*žt 


INIT 

@ PRINT "IF MAG TAPE ERROR OCCURS, USE UDK W1" 
OH EOF (O> THEN 290 
DIM F<62) 


KILL “DATA 

CREATE "DATA", "U" 500,560 

OPEN "DATA"S1."F" AS 

FIND 1 

REM ¥444% READ AND WRITE HEADER 44444 
READ @33:AS,B4,050 

PRINT AF, BS, CyD 

WRITE #11: AS, B4,C,D 

REM ¥4¥4% Ree AND WEITE DATA *4tžł 


OINA a N e OD 
QOD 20000 


2 
2 
2 
2 
4 
2 


NEXT I 

PRINT "NO ERRORS FOUND" 
END 

REM #444 START FIX k*it*t 
FINI 


> 

OH EOF <0) THEN 560 

F=10 

REM #4444 WRITE OUERLAY DATA #*4** 
WRITE @33:A$,B$,C,D 

FOR J=i TO 

WRITE @33:F 

NEXT J 


JsJ-1 
PRINT "REMOVE AND REPLACE TAPE THEN PRESS UDK#2" 
STO! 


RED eee CONTINUE READING TAPE **44% 
> 

READ @33:A$,68,0,0 

PRINT AS,B5,C.0 


F 
WRITE #1, I:F 
PRINT I,FC1> 


NEXT I 

PRINT "FINISH TAPE" 

FIND 1 

ON EOF (1) THEN 680 

REM *k44* TRANSFER LATA--DISC TO TAPE 444% 
READ #1, 1:A%,8$,C.0 

WRITE @©33:A$,B$:C, D 


NEXT I 
PRINT "FINISHED" 
END 


i Yat Tae SME Ib Noel RUA RE TRL a ee 
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Polygon Design and Placement 


by Bernard M. Gunn 
W. & K. McLean Ltd. 
Glenn Innes, Auckland, New Zealand 


To draw a regular polygon anywhere on the 4050 Series 
Graphic System screen, or on a plotter, it is a bit hit or 
miss to enter the length of aside and the angle of rotation; 
we don’t know what the size of the resulting figure will be. 


The following routine allows the user to specify the 
radius, the number of sides, and the center of the figure 
for complete control of its size and placement. The center 
(X,Y instatements 130 and 140) could just as well be input 
from a digitizer, the joystick or the keyboard. 


In this routine statements 24—27 allow the radius and 
number of sides to be input from the keyboard without 
disfiguring the main display (Control 4 returns the 
cursor to the top left of the screen). 


1 SET DEGREES 
= GO TO 109 


REM INP RADIUS & NUMBER OF SIDES OF POLYGON 
PRINT “ 6G " 

INPUT RW 

GO TO 2810 


tron 
TIIA te 


WINDOW @,136,0,100 
VIEWPORT 6,139,0,100 
T=32 


Y=50 
RETURN 


2000 REM POLYGON SUB 
2010 ROTATE © 

2828 MOVE @T:x, Y 
L#R¥TANC18O-N> 
RMOVE @T:-L,-k 


2160 NEXT J 
2116 RETURN 


You can store the coordinates of the polygon for 
replottiug by adding three statements to your routine: 


2003 DELETE x%0,7@ 
2005 DIM XOĆN), YOCNH> 
2085 GIN X0CJ),YO.J) 


A two line routine will redraw the polygon: 


MOVE X8(1>,7@¢1> 
DRAH X0, YA 


—ĖĚĖĚŮŐŮĖŮĖŮĖŐĖ— 
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Tracking Input From the 4956 
Graphic Tablet 


by Jan Erkelens 
Grontmij Nederland B.V. 
Zeist, The Netherlands 


When digitizing from the 4956 Graphic Tablet, it’s often 
advantageous to have your position on the tablet 
displayed on the 4050 graphic screen. The following 
routine achieves this. 


First, set the tablet controller to STREAM mode and set 
the frequency to HIGH (Figure 1). 


4956 


REMOTE POINT 


STREAM STREAM. 
JIA AA Aaa aa G ——O e e e 
Z-AXIS PROX POWER 


The position of the cursor or pen* on the tablet will be 
displayed on your 4050 System as a blinking a ; as you 
move the cursor or pen over the tablet surface, the $ 
tracks its position on the graphic screen. When a button 
on the cursor (or pen) is pushed, the 4050 System 
responds with a peep. A second peep follows if the 
digitized point is outside the window boundaries 
(X1,Y1,X2,Y2). 


REM SUBROUTINE FOR ASKING INPUT FROM TABLET 
PRINT @32.16:5 

INPUT @8:X, Y, 2$ 

IF 2$ 


IF X<X2 AND X>X1 AND Y<Y2 AND Y>Yi THEN 1110 
PRINT "tG"; 
RETURN 


Pe ee ee te ak ee pap e 
RK ODOOOOGCO OD 
O E OYANA UR © 
YMDPOSTMOVOGOO 


*We have obtained the best results using the cursor. 
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Interrupting a Program 


by Pat Kelley 
TEKniques Staff 


To interrupt a program, press the BREAK key once. The 
program is halted but may be resumed by executing a 
RUN command beginning at the line number printed in 
the interrupt message on the screen. For example, a 
program was halted and the following message was 
printed on the graphic screen: 


PROGRAM INTERRUPTED PRIOR TO LINE 178 
To resume this program, type RUN 170. 


You may also use the STEP PROGRAM key to resume 
your program. It will begin execution at the line number 
printed in the message on the screen and execute one line 
at a time with each depression of the key. This is a useful 
debugging tool—key in SET TRACE directly from the 
keyboard while the program is halted and watch the flow 
of your program by line number. 


If the program is waiting for input from the keyboard, 
you must satisfy the input before it will halt execution. If 
the tape is running, the system won't halt the program 
until the tape drive is finished; however, it won’t execute 
the next instruction before halting. Therefore, don’t panic 
in these cases and abort a program unnecessarily by 
pressing the BREAK key twice. For pressing BREAK 
twice is the same as executing an END command; the line 
counter is reset, the execution stack is cleared, and you 
may not continue your program. You'll have to start at 
the beginning. 
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One Reason for a Tape File 
Directory(ies) 


by Ray Holland 
University of Manitoba 
Department of Medicine 
Winnepeg, Manitoba 


What do you do when working on a program and the 
additions cause the ASCII program’s lengthto exceed the 
file size on the tape reserved for that program? The usual 
procedure would be: 


TLIST 
FING cLast» 
MARK 1;SPACE 


But very often there is an empty file, or an old unused 
program file, that you could put your now enlarged 
program into. If only you could find it or remember what 
file number it was in! TLIST will not help unless you have 
modified the tape file headers. 


An alternate solution is to maintain a tape directory that 
contains the information available from TLIST as well as 
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a description of the contents of each file. A logical place 
for such a program is File #1. Now to find a place to put 
your program, execute the following commands from the 
keyboard: 


1000 REM 
FIND 1 
APPEND 18808 
RUN 188860 


The directory will be printed. Once you located the file 
you want, let’s suppose it is File #7, then: 


DELETE 14668, 20008 
FIND 7 
SAVE 


This procedure is much faster than using TLIST, except 
on very short tapes. On very long tapes with a lot of small 
files, a number of copies of the directory could be 
included on the tape at easy-te-remember locations; e.g., 
FILE 1, 20, 40, etc., to make the process even faster. 


1 INIT 
2 IMAGE -8D919T»2Ds" - 
3 GO TO 210 
100 DATA 9 
110 DATA 30727"°A PLOTTING DEMO" 


"7498 


120 DATA 10240+"TEK FFT" 
130 DATA 20224y"DATA FILE FOR TEK FFT" 

140 DATA 3072%"PROG FOR SYNTHESIZING FOR FFT" 
150 DATA 4094,"DATA ACQUISITION PROG FOR FFT" 
160 DATA 6144y"EMPTY FILE" 

170 DATA 3072y"LEAST SQUARES LINEAR FIT" 

180 REM 

190 REM THIS SPACE RESERVED FOR MORE FILE LABELS 
200 REM 

210 PRINT "LFILE SIZEITAPE FILE DIRECTORY" 

220 PRINT "--------- [------------------- JJ" 

230 RESTORE 

240 READ N 

250 FOR I=2 TO N-1 

260 READ ArD$ 

270 PRINT USING 2tArI-L¢ 

280 NEXT I 

290 PRINT "I "Ni" - LAST" 
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Butterfly Sort Speeds Alpha String 
Sorting 


by Gary Neher 
Tektronix, Inc. 
Beaverton, OR 
and Dan Taylor 
Tektronix, Inc. 
Wilsonville, OR 


The approximate time to perform a bubble sort is 
proportional to N? (N = number of items to be sorted). A 
butterfly sort takes roughly NlogN, a substantial time 
saving over the bubble sort. It also compares favorably 
with the “quicker” sort algorithm while using far less code. 


94 


well. The 


240, where N is the number of files on the tape including 
the LAST file. The physical size of the file can be obtained 
from TLIST or can be calculated when MAR Ked. 


To make additions it is important to update line 100 as 


number stored there 


MARK 1,4808 


MARK 1, -INT(-40007256>%256 MAX 768 


Ed. Note: Previous issues of TEKniques have carried other methods for 
coding a tape directory. Ray Holland’s discussion of why a tape 
directory lends additional weight to a good programming procedure. 
However, if named tape headers are desired in addition to a directory, 
the PLOT 50 4050A08 Utilties program contains a program to do this. 
Also, TEKniques Vol. 3 No3 carried a tip from Ed Sawicki on 


File Size = -INT(-X/256)*256 MAX 768 


extending tape file headers. 


1680 


REM 


PRINT *LISS ALPHABETIC STRING SORT (BUTTERFLY) $833" 


INIT 
PRINT ‘Enter the lensth of the 
INPUT J1 

JI=INT( U1) 

IF J1>72 OR J1<1 THEN 1040 
PRINT *JIf wou enter an 


PRINT ‘be isnored.* 
Pasi 
DIM BEC I7)6C8C1) DEC SL) EBC IT) FSJ 
J2=MEMORY-200 
J6"J2-J7 
PRINT *JThere is room 
DIM As(J2) 
Asat’ 
Eset 
FOR J=1 TO Ji 
Es=E$i' * 


tor ur to 


NEXT J 
CS=CHR(31) 


PRINT *JEnter the items to be alehabetized: one rer linei * 
entry atter the lest item is ‘i 


PRINT ‘(press *'RETURN”* 
PRINT entered.) J* 


with no 


* THEN 1400 
IF LEN(B$)<J7 THEN 1320 
PRINT *GGGGGG*s 
BS=SEG(B$riyJ1) ® 
J3=J3+1 
FS=SEG(E$, 1+ JI-LEN(B$)) 
Fe=rsscs 
BS=Bsars 
AS=REP (BS 1+LEN( AB) +O) 
IF LEN(AS)<J6 THEN 1270 
PRINT 
PRINT J3i* 
PRINT ‘JSortins the items: * 
GOSUB 1440 
GO TO 1810 


KEEEE ALPHABETIC STRING SORT (BUTTERFLY) REESE 
REM SeexexMRKR INPUT SECTION eeexeeneee 


longest item (ue to 72 


item with more than 
PRINT “then theldell will rina and the extra characters will ‘4 


*PINT(J2/57)5* 


Items entered--the maximum possible with your machine. 


is defined as N in line 


FILE @ 5 


chars) = *; 


*iJ1i’ characters, "i 


items.* 


REM S8RKeReRER SORTING (BUTTERFLY) SECTION #eeRR ERE AR 


IF J3>2 THEN 1530 
IF J3=1 THEN 1510 
BS=SEG(A$+ 1+ J1) 
DS=SEG(A$+J7+1+J1) 
IF B$«=D$ THEN 1510 
AS=REP(D$e 151) 
AS=REP(BSs J7+1 9 J1) 
GO TO 1680 


REN --- Case where 3 <= 


KO=16 
K1=282^K0-1 
FOR K9=1 TO KO 
K1=0.58(K1-1) 
IF K1t1=>J3 THEN 1670 
FOR K8=K1+1 TO J3 
BS=SEG(AS+K8#I7-J1+J1) 
FOR K7=K6-K1 TO 1 STEP -M1 
DS=SEGCAS,K78J7-J1r J1) 
IF B$=>D$ THEN 1650 


ASSREP (D$, (K7}N1)8J7-J1+ J1) 


NEXT K7 
AS=REP (B$, (K7+}K1)8J7-J1» J1) 
NEXT K8 
NEXT N9 
RETURN 


1800 REM SeeeRKRERK PRINTING SECTION keeeeexeee 


1810 
1820 


PRINT “LALPHABETIZED LIST -- *#J3i° 


PRINT AS 


1830 END 


ITENSJ* 


ee 
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TLIS To The 4642 Printer 


by Jerry Anderson 
Phillips Petroleum Co. 
Bartlesville, OK 


Although the 4642 Desktop Printer cannot process the 
4050 Series TLIS command, executing the following 
sequence will produce the same result. 


T IS TAPE_UNIT ADDRESS! 
REN P IS PRINTER ADDRESS 
T=33 
P=41 


FIND @ 
PRINT @T,0:8,6, 
080 


1 
FOR I=1 TO 1 
FIND @T:I 
INPUT @T:A$ 
BS=SEGCA$, 35,5) 
B=VAL(B$)*256 
BS=STRCB> 

AF=REPCB$, 35,5) 

PRINT @P:A$ 
BS=SEGCAS,9,4 

IF BS="LAST® THEN 668 


NEXT I 
PRINT @T,0:0:0:0 
FIND @ 

END 
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Setting Up A Menu On The 4956 
Tablet 


by Ed Mitchell 
Tektronix, Inc. 
Wilsonville, OR 


When creating drawings, a menu on your 4956 Tablet 
allows you to select and move around predefined shapes 
anywhere on your plot. Commands may also be issued 
directly from the Tablet. 


First, design your menu. The example in Figure | 
provides for a possible 24 commands and 24 objects. The 
layout is arbitrary; here the symbols are grouped in a 3- 
row 8-column block with the commands grouped in two 
rows of 12 columns. Keeping the blocks evenly spaced is 
essential so block detection can be made through a two- 
line algorithm. 


Four parameters must be defined for the menu: the lower 
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left and upper right menu locations, and the number of 
rows and columns. Since the menu location can be 
changed, its boundaries must be digitized. The following 
routine accomplishes this: 


1009 REM *xkt* SET MENU AREA ¥¥% 
REM DIGITIZE | LOWER LEFT AND UPFER RIGHT 
DIM H2) 3UCQ 
PRINT Shove. “THE CURSOR TO THE LOWER LEFT "3 
PRINT “OF THE TABLET MENU AND PRESS THE “2° 
INPUT @U;HC1>,UC1),2$ 
A THEN 1058 
REM DEBOUNCE THE CURSOR TO ELIMINATE FALSE POINTS 
INPUT ey: h Ke Ved 
IF 2$< "8" THEN 1090 
PRINT "JJMOVE THE CURSOR TO THE UPPER oad OF THE "3 
PRINT "TABLET MENU AND PRESS THE “2° BUTTONIG “i 
IHPUT eu: ae args y2 
IF 2¢="0" THEN 
REM DEBOUNCE THE CURSOR 
INPUT @U:> 
IF 2$<>"6" 


BUTTON'G"S 


No ¥92Z 


THEN 266 


REM #4** CALCULATE BOUNDARIES $ BLOCKS ¥**% 
H3=(CHCZ)-HCL) 78d 1 24H 01> 

U1=(UC2>-UC1) 975 

H1i=CHC2)-H(1))78 

REM *x4* EXIT *44% 

RETURN 


When digitizing the boundaries, set your Tablet con- 
troller to STREAM SWITCH mode. This allows the 
4050 System to continuously track the location of the 
cursor. After each menu coordinate is digitized, the 
routine ensures the pen or button has been pressed and 
released before continuing, a technique called “deboun- 
cing.” (The mechanical bounce of the switch contacts may 
send out a pattern of unwanted ”Z” commands which 


must be removed.) When working with the 4051 only one 
check of the Z parameter is required, but the 4051/4054 
sometimes require three or four “dummy” inputs to 
ensure that all false points are cleared. 


Once the lower left and upper right coordinates of the 
menu are known, simple computations decode the points. 
However, the other two menu parameters, rows and 
columns, must be specified in your code as constants. For 
this example, 8 and 12 columns are specified in statement 
1510, 5 rows in statement 1520 and 8 columns in 
statement 1530. 


Since the menu is not a rectangle and the 8-block upper 
right X coordinate is less than the 12-block X coordinate, 
statement 1510 computes the maximum horizontal coor- 
dinate. Statements 1520 and 1520 calculate the individual 
menu block sizes. (If you keep the menu in place on your 
Tablet while creating your drawing over a period of time, 
store the data derived from the above routine so you 
won't have to repeat these steps each time.) 


Once you have entered menu mode*, the following 
routine interprets the coordinates digitized as a menu 
item and branches accordingly. 


2998 REM ttt Yenu SELECTION ¥*4x 
3088 INPUT @U „2$ 
3010 IF 2520" “iien 306 
3020 REM CHECK TO ENSURE LOCATION IS IN MENU AREA 
3030 IF X<H(1) OR X>H3 OR Y<UCL) OR YOUCZ) THEN 3000 
3646 REM FIND LOCATION 
REINTCCY-UCL 99/1) 
BO CINTCCX-HC1) “HED 41 
TO ROW 
R OF 3308,2460, 3500, 2600 
a TYPICAL 2-LINE 12-BLOCK ROW CODE 
4000, 4050, 4100, 4150, 4208, 4250, 4300, 4356, 4409, 4450, 4500 
OF 4550 
REM ROW 2 


REN ROW 3, TIPICO, 3-LINE 8-BLOCK ROW CODE 
OF 5000, 5050.5100, 5150, 5200, 5250, 5300 


GO TO C 5350 
3430 REM Hy PROGRAM FALLS THROUGH THEN CURSOR WAS OUTS TOE 8 BLOCKS 
3436 GO TO 3000 

‘ipa REM ROW 4 


| 
[i 
2606 REM ROW 5 
! 


Statement 3000 tracks the cursor location. Statement 
3010 checks to see if a switch was pressed; if so, statement 
3030 verifies the point is inside the menu boundaries. 
Statements 3050 and 3060 then calculate the row and 
column. 


The row ”R” pointer range runs from 0 through 5 since 
any point calculated in statement 3050 will fall in one of 
the rows. However, the column ”C” pointer is offset by 
one for a range of | through 12. This allows the program 
to “fall through” to the third statement of a row routine 
when the row is greater than 2 and the column is greater 
than 8. For example, should a coordinate defining Row 3 
Column 9 be digitizied, the 4050 system won't branch at 
line 3410 but will continue to line 3430 which returns the 
user to the menu. You could include an error message 
here. 


The foregoing routine could be expanded to include 
prompts, error messages and bells for confirmation of a 
selection. These have been left out so the struct ure may be 
clearly seen. 


One last important detail. When placing the menu on the 
Tablet, keep it straight. A skewed menu can lead to 
incorrect operation. 


*The routine to branch to menu mode has not been included in this 
programming tip. 


Se 
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End of File Interrupt Logic 
by John Carter 
Tektronix, Inc. 
Santa Clara Annex 
and Pat Kelley 
TEKniques staff 


ON EOF (ø) 


The command ON EOF (Ø) ... enables the 4050 Graphic 
System to respond to an end of file condition during 


INPUT or READ operations; the following discussion 
traces its response route. 


When the end of file is reached, the system does an 
implied GOSUB from the executing statement to the line 
number specified when ON EOF was last executed. If the 
service routine ends with a RETURN command, control 
is returned to the statement following the READ or 
INPUT statement—not the statement following the ON 
EOF (Ø). Therefore, when the service routine terminates 
with a RETURN, the statement following the triggering 
action should contain a test to escape the INPUT or 


READ loop. The following code demonstrates the proper 
use of ON EOF (Ø) in this case. 


106 
118 
120 
136 
146 


1886 
1816 


1020 


INIT 
GOSUB 2688 
FING 1 
GOSUE 18068 
END 


INPUT @33: AF 

PRINT A$ 

GG TO NOTCA) OF 1686 
RETURN 


A=1 
RETURN 


A=6 
ON EOF (Ø> THEN 2800 
RETURN 


1930 


2008 
2816 


3888 
3016 
3926 


If you don’t terminate the service routine with a 
RETURN, the system is no longer armed to respond to an 
EOF condition. For example, say you executed an ON 
EOF (Ø) statement, then read file 1. When you reached the 
end of the file, you branched to a service routine which 
printed your file; but the service routine did not end witha 
RETURN. Now, should you read another file, when you 
reach its end, the program will not branch to the service 
routine, but will stop and an EOF message will be printed 
on the graphic screen. 


Also, if you don’t end the service routine witha return the 
memory allocated to store the return address (the 
statement following the triggering action) would not be 
cleared. Furthermore, if the system continued execution 
and encountered a RETURN not connected with another 
subroutine it would return execution to the statement 
following the triggering action. 


Therefore, treat your service routines as 
SUBROUTINES and RETURN from them unless you 
plan to end your program immediately afterward. 


Check Your Logic 


The logic which the code in Figure 2 represents has 
trapped more than one user into an infinite loop. In each 
case the user wanted to find a file, branch to a subroutine 
to read it, return to the main program for the next file, etc. 
However, the RETURN in statement 650 is associated 
with the implied EOF GOSUB rather than associated 
with the GOSUB in statement 150. Thus, when statement 
620 is executed and an EOF is detected, the system 
branches (implied GOSUB) to statement 650, which 
returns execution to statement 630. Statement 630 
“prints” the EOF, goes to statement 620, again detects the 
EOF, branches to statement 650 ..., ad infinitum. 


97 


INIT 

PAGE 

FOR I=#i TO 3 

PRINT "THIS IS FILE “sI 

PRINT 

GOSUB 688 

NEXT I s 
PRINT "THIS IS THE END OF THE ROUTINE 
END 


ON EOF <0) THEN 630 
FIND I 

INPUT @33:x$ 

PRINT X$ 

GO TO 628 

RETURN 


OFF EOF (9) 


Once ON EOF (Ø) arms the system to respond to the end 
of file condition, you can return it to its default condition 
(i.e., treating the EOF as a fatal error), by issuing an OFF 
EOF (Ø). However, the OFF EOF (Ø) must be set after the 
RETURN command terminates the service routine. For 
example, inserting the statement: 1005 OFF EOF(@) into 
the code in Figure | would have no effect. The RETURN 
at statement 1010 would negate the OFF command. 


An Alternative to ON EOF (9) 


The TYP (@) command may also be used to detect end of 
file.* When you are READing or INPUTting a file, check 
the next type of data before each string or numeric input. 
If a | is returned in the variable, you have reached the end 
of file. The following lines of code demonstrate its use. 


aa! 


AEEA EO 


-, 
oe! 


pt pa pa jet 
tal AA] 
m) EF 1 me 


IF TYPED) 
INPUT @3 $ 
FRINT H$ 

GO TO 1668 
RETURN 


THEN 1940 


He 
eat} 


r, 
laa! 


Luu 
16i 
1@2 
ibs 
104 


CG Se 


In most cases, the TYPe method of detecting the end of 
file may be more practical than the ON EOF (@) method. 


*The TYP (Ø) command will also detect a NEW or LAST file, and 


whether the next item is ASCII, binary numeric or binary string. Refer 
to the Graphic System Reference Manual for suggestions on using TYP 
(Ø) in these cases. 


Pe ake ah eS ean te Re rl ROE a A A ee td 
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Das hed Line Subrouti nes Before making a call to the second subroutine, you'll need 
by Bob Wainwright to define the previous six variables—X1,Y1,X2, Y2,11,12, 


Tektronix, U.K. plus: 
Manchester, England 16 ....The space between dashes (current 
WINDOW units)* 


Once these variables have been assigned, a call to the 
following subroutine will result in the desired dashed line 
and space being plotted on your device. 


2000 REM DASHED LINE SUBROUTINE 
2018 REM (DEVICE=I1> (DASH LEN=12> «SPH LEN=I6> 
2028 SET DEGREES 

TS=SQR¢CC¥2-¥19124CX2-K1) 229 


T4sASNCCY2-Y1)715 MIN 1 MAX -1> 
ROTATE (180-14)¥*¢X1>X204+CX2=>X19¥14 
4= 


C=12 MIN I5 

MOVE @I1:X1,Y1 g AEN 

FOR 13=1 TO INTCISZ12+16))42+(IS-INTCIS/(IZ+IEÙJ4 124159 912) 
RORAW @I1,20+14:cI4=0>4C+I4tI6, 0 

14=N0T <14) 

NEXT 13 

MOUE @11:%2.¥2 

RDRAW BIL: CINTCIS (12416) >¥¢ 12416-1584 14-8)-144612°28% MIN 15,6 
RETURN 


In addition to the variables mentioned above, three 
scratch variables, 13, 14 and 15 are used in both routines. 


*If the window is changed from its default ratio of 1.3:1.0, i.e., WIN 
0,130,-100,200, and you are using multiple dashed lines, the dash length 
(and space) will vary for each line according to the slope of the line 
determined by the beginning and ending coordinates. 


Ed. Note: A general purpose dashed line algorithm is included in the 
4050 Series Application Library under abstract 51/00-9508/1. 


Two subroutines draw dashed lines between any two 
points. In both routines you specify the points, the dash 
length, and the output device. The space between dashes 
on the first routine is the same as the dash length; 
however, you may specify the length of this space in the 
second routine. 


Before making a call to the first subroutine, you'll need to 
define six variables. These are: 


X1, Y1 .The x and y starting coordinates 
X2, Y2 . The x and y ending coordinates 
Il ....The output device (32 = 4050 screen) 
I2 ....The dash length (current WINDOW units)* 
Once these variables have been assigned in your program, 
a call to the dashed line subroutine will result in the 
desired dashed line being plotted on the specified device. 
REM DASHED LINE SUBROUTINE 
REMCIL=DEVICE #) CI2=DASH’SPA LEN) 
SET DEGREES 
TS=*SOR¢((¥2-¥ 1) 424(K2-¥1) 72) 
I4=ASH((Y2-Y1)7I5 MIN 1 MAZ -1> 
ROTATE (180-14)%(X1>X2)+(X%2=)X1>%I4 
C=12 MIN IS 
MOVE @11:X1,Y1 


FOR 13=1 TO INTCIS~“12> 

RDRAW @I1,20+14:C,0 

14=N0T (14) 

HEXT I3 

RORAW @11:<(I5-INT(IS-I2)¥I2)#(IS>12>,0 
RETURN 
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Formatting Tabular Output Using 
String Functions 


by Bob Pilkington 
AT&T Long Lines 
Bedminster, NJ 


Do you output tabular reports from your 4051 toa printer 
or terminal that doesn’t contain or recognize tabbing? If 
so, the following routine which takes advantage of the 
4051 string functions may prove useful. 


INIT 

DIM O1¢616>,Q2¢187,03¢199,04618) 

REN ¥¥x4% TEST DATA_44%x4 

DATA 53 10,15, 20,25, 30.35,40,45,58 

DATA 55.60, 65+ 70575; 80585. 90,95. 186 

DATA 105,110,115, 120,125,130, 135, 140,145,150 
DATA 155,160, 165,170,175, 180,135,190, 195, 206 
REM *kłł* FILL COLUMN ARRAYS WITH DATA *4x44 
READ G1 

READ QZ 

READ Q3 

READ Q4 


bOI & 


a dal 
SArasaGarqgeao 


Sw man 


Neh a ea 


REN ¥*44% COLUMN ENDING POSITIONS #4444 


REM #X44% BEGIN FORMATTING-OUTPUT ROUTINE 44434 

PRINT “LENTER 1 FOR 4081 DISPLAY OR 2 FOR PRINTER "3 
J 

IF D1 OR D>2 THEN 410 

FOR I=1 TO 72 

2$=254" " 

NEXT I 


an AREER HEADING ¥*4*%** 


Pa cE 
$#="COLUMN 
C=C1+2 
te 1888 


EOSuB. 1066 
S#="COLUMN 
C=C3+2 

GOSUB 1080 
$$="COLUMN 
C=04+2 

GOSUB 1000 
i 2068 


tasus 3000 


A REM *k*4¥* TABULAR DATA ¥kkX* 
FOR K=1 TO 10 
ON rar denis 


=1 
‘ GOSUB 3008 
2$ 
STRCQ1EK?) 


$= 
$ 
0 


t 

SUB 1000 
S$=STRCQZŽCK?> 
C=C2 
GOSUB 1000 

8 S$=STREQZCK D> 
C=C3 
GOSUE 1000 
S$=STRCOD4CK D> 

=C 


4 

GOSUB 1000 

REM SEND TO DISPLAY OR PRINTER 
GOSUB 2068 

NEXT K 

END 


CO CO OG OS J > 
Gee eo CO 
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REM x*x4% FORMATTING SUBROUTINE 4**4% 
L#=REP (S$, C-LENCS$>, LEN(S$>> 
RETURN 


REM *x44% OUTPUT SUBROUTINE ¥*44%4 
GO TO D OF 2828,2646 
PRINT L$ 
RETURN 
PRINT @48:" IL$; 
26 REM DELAY TIME Fok MY PRINTER 
69 FOR I=1 TO 56 
NEXT I 
RETURN 


REM x4xxx SKIP LINE ROUTINE XXX% 
GO TO D OF 3020, 3060 
ð FOR I=1 TO $ 


PRINT 40; "J" 
HEAT I 
RETURN 


The output is formatted according to the desired column 
ending positions, which are defined in statements 310— 
340. Statements 440—470 initialize the string variable in 
which each output line (row) is formatted. The formatting 
subroutine, statement 1010, replaces the appropriate 
blanks in the string variable with, first, the labeling from 
statements 500—640, then with one set of data from each 
array. Thus, the latter case for our example, requires four 
calls to the subroutine for formatting a row. 


The string (row) is then output to the 4051 graphic display 
or to the printer; we output through address 40. The 
routine is continued until the last data from each array is 
formatted and printed; in this example a total of 10 rows 
are output (statement 710). Statements 620— 640 provide 
for a blank separating line after the fifth output row. The 
key variables are: 


C = title ending positions 

C1.C2,C3,C4 = column ending positions 

K = number of rows 

L$ = line buffer string variable 
—72 characters* 

Q1,Q2,Q3,Q4 = arrays of test data 

S = number of lines to be skipped 

S$ = argument used to replace L$ 


blanks with characters 


SEO E EE 
*Z$ and L$ could be dimensioned to hold longer strings for output to a 
132-column line printer. 
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Fine Circles or Ellipses 


REM Drawing Routine 
SET DEGREES 


by S. Schicktanz 92 DIN KOCIE 
Physics Department KO<K#1 >=SINC2RK) 
Technical University of Munich REN Delete Initialization 
Munich, Germany KOUE Ont 


FOR =a TO 2 
FOR K=1 TO 46 
pneu KOCK), K@¢47-K> 


NEXT K 
POR K=1 TO 46 
DRAH K8647-K),-KOCK> 


The following routine draws very fine circles and may 
easily be modified for ellipses. The routine may be called 
as follows: 


FOR J=1 TO a 
FOR K=1 TO 
DRAW KOCK», eac47~ K> 
NEXT K 
FOR K=1 TO 46 
DRAH pacar: K>5-KOCK> 
NEXT K 
K@=-Ke 
NEXT J 
RETURN 


ee 
18 
28 
30 
48 
50 
68 
78 
89 
98 
88 
18 
20 
38 


REM RESET WINDOW AND VIEWPORT TO DEFAULT SIZE 
WINDOW @ 

UIEMPORT 

REM Move to Center of Circle 

INPUT Zi Z2;R (OR INPUT 21,2Z,R1,R2) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 


@ MOVE 21,22 A 
REM Define Radius (or half-axes of ellipse) 
SCALE i 1“R (OR SCALE 1(R1,1/R2) 
GOSUB 1008 
REM, Hain Program Continues 
RETURN 


Once the array is developed in lines 1000 to 1050, its 
initialization procedure is deleted. Now as many circles 
(or ellipses) may be drawn as desired specifying different 
radii or axes. 
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Remove 4907 ROM Pack If Not Using The 4050 System automatically goes through an in- 


itialization when turned on, when a program is OLDed, 
by Ed Mitchell or, of course, when an INIT command is issued from the 
Tektronix, Inc. keyboard or under program control. If the 4907 ROM 
Wwhsonville, OR Pack is in place, the 4050 System expects device 0 to be 
on-line and, as part of the initialization, it will poll device 
0. If the disc unit is not connected to the 4050 System or is 
not turned on, the poll will cause the 4050 System to wait 
for a response, which will never be forthcoming. 


Remove the 4907 ROM Pack when you're not using your 
4907 Disc unit. If you don’t it could cause your 4050 
system to “hang busy.” 
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Minimizing Data Transfer Time to sizes that make the most effective use of the 4907. The 
4907 results provide the necessary information to evaluate 
compromises between increased program speed and 

by Jim Gish larger array sizes. 

Tektronix, Inc. 

Irvine, CA The Study 
This article explores the interaction between a 4050 Series Consider a program which writes 3000 numbers to the 
Graphic System and the 4907 File Manager, during data 4907. Although there are many ways to implement this, 
transter. The 4907 is a mass storage unit, often used to here we concentrate only on two variables: the number of 
store large amounts of numeric data. How this data is values passed to the disc in each write, called the block 
passed to the 4907 dictates how long the transfer takes, size or record length, and the prior history of the disc file 
and must be considered by the applications programmer. receiving the 3000 values. The block size subsequently 
The following study was made to determine the array determines the number of random access records in each 


100 


file; more specifically, the product of the number of 
random access records multiplied by the block size will 
always yield the total number of values—3000 in our 
example. Since each record requires one write, the block 
size also determines the number of disc writes per file. The 
tile history was split into two types. The first type was a 
newly created file; the second type was a file that 
previously existed on the disc, referred to here as a 
"conditioned” file. All files in the study were binary 
random files. 


The same series of 20 tests were performed first ona 4051, 
then on a 4052. The 20 tests passed 3000 numeric values to 
the 4907 in a FOR/NEXT loop, with each test using 
ditterent combinations of block sizes and, consequently, 
disc writes. Each test was executed twice, first on a new 
tile and next on a conditioned file. The clock in the 4907 
timed each test. 


100 INIT 

110 I8--188 

128 DIM A(3@),AS(18), BS(18),L$(2) 

13 DATA 1,2,3,4,5,6,8, 10, 12, 15, 28,25, 32, 48, 52, 68, 75, 10, 128 
149 DATA 152, 200, 252, 308, 375, 520, 608, 752, 1088, 1528, 3208 
158 READ A 

168 FOR I=1 TO 38 

170 IF ACI)<1@+1@ THEN 408 

188 I@-A(TY 

190 2-0 

208 N+A(31-1) 

218 MACI) 

228 KILL "TESTO" 

230 CREATE "TESTO" ;M+2,N¥10 

249 DELETE B 

258 ZB-rEMORY 

268 DIM B(N) 


368 GOSUB 420 
NT @51:USING “3X,7D,7D,7D.2D":M,N,H 


SEEE 


Re 


AS*BS 
IF X@=1 THEN 440 
549 RETURN 


538 


The Results 


Figures I and II show the results for the 4051 and 4052 
respectively. Log-log axes uniformly distribute values on 
the X-axis. The X-axis graphs the number of writes used 
to transfer the 3000 values; the Y-axis graphs the time, in 
seconds, for the entire transfer. 


The curves in Figure | and 2 are very similar: when all 
3000 values are transferred in one large block, the elapsed 
time is the least; as the number of writes increases, the 
transfer time increases rapidly. Note the vast difference 
(10-40 times) in transfer speed bet ween one write and 3000 
writes. At the other extreme, these illutrations show a 
large difference (factor of 2) between writing into a new 
tile (bottom curve) as opposed to writing into a con- 
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ditioned file (top curve). Two conclusions may be 
reached: 


I. Anapplication program can save a great deal of time if 
all reads and writes to the disc are done in large blocks 
of data. 

2. When you are recreating a file, it may be much faster 
to KILL and CREATE the file instead of reusing the 
old tile; however, as the number of writes dimishes, so 
does the time difference between using new and 
conditioned files. 


Figure 3 shows all four curves on the same graph. For 
large block sizes, the 4052 approaches a twofold speed 
increase over the 4051; as the block size dimishes, this 
speed difference disappears. For block sizes of 20 values 
or less the speed advantage is gone. 


Conclusion 


When using the 4907, performing reads and writes in 
blocks as large as possible, is the major factor that 
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NUMBER OF DISC WRITES 
» -- 4851, NEW FILE 
+ —- 4851, CONDITIONED FILE 


Fig. 1. The graph portrays the number of writes versus the time to 


transfer 3000 data values from a 4051 to a 4907. 


FIGURE -IT 


MEH4 DMOZ MOVEM 


rror 


rror My 
18 188 


NUMBER OF DISC WRITES 
@ -- 4052, NEW FILE 
{ -- 4052, CONDITIONED FILE 


Fig. 2. The graph portrays the number of writes versus the time to 


transfer 3000 data values from a 4052 to a 4907. 


FIGURE III 
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—- 4851, NEW FILE 
4052, CONDITIONED FILE 


NUMBER OF DISC WRITES 
e 
-- 4051, CONDITIONED FILE i 


Fig. 3. Composite of Figures 1 and 2 compares 4051/4907 writes vs. 
time to 4052/4907 writes vs. time. 


minimizes I/O time. To accomplish this, programs can be 
written to use the remaining 405X memory as an I/O 
buffer. These programs are often called “paging” techni- 
ques, and will be covered in a subsequent issue of 
TEKniques. 


The second major speed increase can be gained by 
deleting and then recreating a file if it will be regenerated 
in its entirety. The illustrations show that writing toa new 
tile is always at least as fast as, or faster than, writing toa 
conditioned file. Implementing this technique usually 
takes very minor changes to existing programs. 


The following table summarizes the test data. 


TABLE I 


Tabular summary of transferring 3000 numeric values 


4051 4052 


#DISC * 
WRITES 


CONDITIONED 
FILE 


CONDITIONED 
FILE 


39 sec 21 sec 
41 
45 
48 
49 


51 


750 

1000 

1500 

1021" 


3000 1021" 


*The number of disc writes and the block size are inversely 
related. 


1/A/20 
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Use 4052/4054 to Recover Damaged 
Tapes 


By Ed Mitchell 


A feature of the new 4050 Graphic Systems product line 
allows you to partially recover accidentally marked 
tapes* or tapes with bad spots. This feature, CALL 
“HEADER”, locates the next good file after the “LAST” 
tile or a damaged spot. 


How it Works 


Insert the tape you are recovering. First, doa TLIST to 
tind the file number of your last legible file, then FIND 
this last file. Now eject the tape and manually move the 
tape forward a few inches and re-insert it into the tape 
drive. Since the 4052 or 4054 doesn’t automatically 
rewind your tape to file Q, you can locate the tape position 
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by typing in CALL “HEADER”. The system will search 
for the next header and will print out its description: file 
number, type, etc. You can now back the tape FINDing 
the files in decreasing sequence until you locate the first 
good file after the damaged spot. Access the files normally 
(OLD or CALL ”BOLD”) and transfer the program(s) to 
another tape. 


*When vou mark over an existing file, at least eight 256 byte records will 
he tost to each new file and four 256 byte records for the new LAST file. 
Aaa these to the length of your newly marked file(s) and you'll have 
some idea of what's gone. 
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Easy Curves Revisited 


290 REM Xxx FIND MIDPOINT OF CORIS 


by P. K. Wong 300 U1=0.5K(X14X2) 
r 310 V1=0.5 
Department of Mathematics 320 UZ 2 
ee A z 330 U220.5K(Y2+Y3) 
Michigan State University 340 REM kkk M1 2 M2 ARE SLOPES OF PER. BISECTORS OF CORIS 
350 IF Y1=Y2 THEN 440 
East Lansing, MI 360 M1=(X2-X1)/(Y1-Y2) 
370 IF Y2=Y3 THEN 490 
” i : ay 380 M2=(X3-X2)/(Y2-Y3) 
In reference to the “Easy Curves” programming tip in the 390 IF M1=M2 THEN 1030 
; 5 ; ; 400 REM X*k LOCATE CENTER (E1,E2) OF ARC 
June t5, 1979, Issue of TEKniques, the following ex- 410 E1=(V2-V1+M1XU1-M2*XU2)/(M1-M2) 
amples illustrate some difficulties: Com en 


440 E1=UL 

450 IF Y2=Y3 THEN 1540 

460 M2=(X1-X2)/(Y2-Y1) 

470 E2=M2x(E1-U2)+V2 

480 GO TO 520 

490 ELl=U2 

500 E2=M1*X(E1-U1)+V1 

S10 R xk FIND RADIUS 

520 QAR (E1-X1)K(E1-X1)+(E2-Y1)K(E2-Y1)) 
530 


(X1,Y1) (X2,Y2) (X3,Y3) Problem 
(70.50) (60.60) (50.50) SIZE ERROR ON LINE 450 
(50.50) (60.60) (50.70) size error on line 720 


(50.50) (60.50) (70.50) SIZE ERROR ON LINE 450 
(50.50) (50.60) (50.70) SIZE ERROR ON LINE 520 
(50.50)  (60.59.9) (70.70) Wrong angular sweep 


1030 PRINT "THE THREE POINTS ARE COLTNEAR. * 


l have not tried to make all the necessary changes in the 


The size errors arise mainly due to division by zero in the Easy Curves program. However, this routine will produce 
lines indicated. A conceptually more direct way of finding the correct center and radius without using sines and 
the center and radius of the arc is to locate the intersection cosines. 


point of the perpendicular bisectors of the two cords 
joining the three given points. The listing for such a 
routine follows. 


(X2,Y2) 


(U2,V2) (U1,V1) 


(X3,Y3) 


REPRINTED FROM TEKNIQUES, VOL 3 NO 8 — 4050 SERIES APPLICATIONS LIBRARY NEWSLETTER 
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Truncation and 4050 INT Function number. For example, INT(1.1) is, in fact, l; but 
INT(-1.1) returns -2! 
by Phil Somerset 
Tektronix, Inc. If your application requires that numbers, whether 
Rockville, MD positive or negative, be truncated at the decimal point, 
then define and use the following function: 
The INT function on the 4050 Series does not simply 
truncate numbers at the decimal point, but rather 
produces the largest integer less than or equal to that CEF FNTCX2SSGNCXISINTCRBSOR 22 
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One File Sort on the 4907 before a file can be sorted: the number of records in the 

tile plus 1 (R in statement 120), their length (F in 

by Chuck Eng statement 110) and the name of your data file (statement 

Tektronix, Inc. 140). When you are finished sorting, the sorted records 
Beaverton, OR remain in the original file. 

The following routine* sorts string data on the 4907 disc The sorting of 697 records consisting of 36 characters 

into ascending order. Because it doesn’t require that all each took 6 minutes 24 seconds on a 4051/4907 system. 


data to be sorted reside in memory, you can sort a random 
tile containing any number of records of any length. 


Furthermore only three variables need to be defined *The routine is adapted from the "Quicker Sort” subroutine, contained 


in the TEKTRONIX PLOT 50 General Utility Programs Volume 1, 
which sorts a linear array of numeric data. 


REM START SORT 
F=36 


R=698 A MIN ASEE 4os 2A 


DIM ASCF>, BSCF) CSCF) DECF) ESCF) FSCF> 
OPEN "SORTDATA°;1,°F*,AS 


SEEDY E ry ao cw + of T 28 
REM 697 Cec 
REM SESSTTSTART OF ONE FILE SORT$łłłłł bd 


DELETE B3 


DIM B3(24) 

IF R¢=1 THEN 810 A. 

8z sec 
= ' 

B2=R-1 mA in 

IF B2<=B1 THEN 760 


ie S2BISt TREN TAB soo hee 1i emt. 


READ @1,B1:C$ / 


TE csc=b$ THEN 710 

As=Cs 

WRITE #1,81:08 Sort ED Fire 
ETTE Ploes SRT O osse. 1090 KLE 


AS=1 
BS=INT(0.5%(B1+82)) 


READ #1, B5:E8 Z2 mi 
RA R 
Be=82 ° i % | C HA 


A4=B1 Rae 
Ad=A4+1 I oo 

IF A4>B6 THEN 608 o 2 ső C. 
READ #1,A4:G$ mi aò 

IF G$<=B$ THEN 440 

IF B6<A4 THEN 609 

READ 81, B6:F$ 

IF FS<B$ THEN 530 


80 
READ #1,A4:G$ 
A$=G$ 

READ #1,B6:F$ 

WRITE #1,A4:F$ 

WRITE #1,B6:A$ 

B6=B6-1 

GO TO 448 

READ #1,B6:F$ 

WRITE #1,B1i:F$ 

WRITE #1,B6:B$ 

IF B6+B6<=B1+B2 THEN 680 
B7=B1 

B8=B6-1 

B1=B6+1 

GO TO 718 

B7=B6+1 

B8=B2 

B2=B6-1 

IF AS<=@ THEN 768 
B4=B4+2 

B3¢B4-1>=B7 


250 
IF B4<=0 THEN 810 
B1=B3(B4-1> 
B2=B3(B4>) 


B4=B4-2 


RESEND OF ONE FILE SORTS&424% 


104 


Programming Tips, Volume 1, Keyword Index 


i 


KEYWORD ASSOCIATED KEYWORDS PAGE 
4010 Terminals Gr aphics, Input ‚Output ,Offline,PLOT 10 ICS,Option 1,RS-¢232 11 
4010 Terminals Gr aphics,Output ,Option 1,RS-232,4660 Plotters 80 
4051C01 Interface Data Communications,Option 1,RS-232 57 
4051R05 Binary Loader Input ‚Output ,Converting Binary from ASCII 4 
4051R06 Binary Loader Binary Data Output 3 
4052/4054 Desktop Computers Salvaging Re-MARKed or Damaged Tapes 102 
464c Printer TLIS 95 
4660 Plotters Output ,Gr aphics,4010,Option 1, RS-23¢ 80 
4662 Plotter Window ,Mar gins 61 
4662 Plotter Viewpor t Sizing 64 
4662 Plotter Shading Polygons, 4952 Joystick 66 
4662 Plotter LOAD Button Test 80 
4907 Disk Sorting 21 
4907 Disk Segmerited Graphics Data Base 30 
4907 Disk Segmented Graphics Data Base 33 
4907 Disk Over Laying ,Subroutines 4y 
4907 Disk Overlays , Storing 45 
4907 Disk Closing Files 48 
4907 Disk Input ,Secret Files 54 
4907 Disk Alpha Access to Records ,Hashing 68 
4907 Disk Binary ,ASCII,Data,Space Required 71 
4907 Disk File Management ,Clean-Up,CALL "DUP" v CALL "COMPRS" 77 
4907 Disk CALL "MOUNT" 81 
4907 Disk File Management , Directories, Chaining 84 
4907 Disk Abor ting SAVE 85 
4907 Disk Data Output, Arrays 100 
4907 Disk ROM Pack 100 
4907 Disk Strings, Sor ting 104 
4923 Tape Drive Delimiters,Input,Tape Format,Status Bytes 73 
4924 Tape Drive Inter rupts,Polling,Errors,Status Bytes,GPIB 5 
4924 Tape Drive CLOse Files 62 
4924 Tape Drive Plotting ,Offline,466¢ Plotter 67 
4924 Tape Drive Tape krrors,Detection 84 
4952 Joystick Input , Prompting ,Screer,POInter ,No Echo 16 
4952 Joystick Shading ,Polygons,466¢ Plotter 66 
4952 Joystick Gr aphics, Arcs,Curves,Circles 83 
4952 Joystick Graphics,Curves,Arcs,Circles 103 
4956 Tablet Digitizing,Tracking om Screen 53 
4956 Tablet Mapping , Coordinates, Transformations , Digitizing 86 
4956 Tablet Digitizing, Tracking on Screen 92 
4956 Tablet Digitizing ,Menus 95 
Animation Photography ,Movie Camera,GPIB,Screen 8 
Animation Photography ,Movie Camera,Screen 15 
Ares Curves,Circles,Graphics,495¢ Joystick 83 
Arcs Graphics,Curves,Circles,495¢ Joystick 103 
Arithmetic Operators Multiplication 3 
Arrays Loop Alternative 3 
Arrays Graphics,Plotting,Loop Alternative 10 
Arrays Numeric Data Base, Packing ,Sear ching 3g 
Arrays Graphics,Plotting,Secondary Addresses 36 
Arrays Size 54 
Arrays Randomizing Data,Numeric,RND Function 60 
Arrays Random ,Numeric,RND Function 62 
Arrays Data Randomizing ,Numeric,RND Function 65 
Arrays Data Base ,Packing ,Numeric Te 
Arrays Input ‚Output ,Memory Management ,Dimensioning 79 
Arr ays Data Output ,4907 Disk 100 
ASCII Data 4907 Disk,Space Required ¿Binary 71 
Axes Rototating , Viewpor t 18 
Binary Data Output ,4051R06 Binary Loader 3 
Binary Data Strings , Output 55 
Binary Data 4907 Disk,Space Required ,ASCII T4 
Binary Programs 4051R05 Binary Loader , Input ,OQutput,Converting from ASCII 4 
Binary Strings Input , Tape 19 
Books Manuals 24 
Branching IF/THEN Alternative, Relational Operators 3 
Branching Subroutines,FORTRAN Alternatives,FUZZ 14 
Branching Input , Prompting , Editing 18 
Branching Loops ,Memory Loss 21 
Branching Input ,Prompting , Relational Operators 24 
Br anching Loops 37 
Branching Subroutines,User-Definable Keys 37 
Br anching Meru Prompting ,User-Definable Keys 43 
Branching Subroutines, Loops ,Memory 45 
Branching Input , Prompting/kditing 54 
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KEYWORD 


Br anching 

Br ariching 

Br anching 

BREAK 

CAI 

CALL 

CALL "COMPRS" 

CALL "DUP" 

CALL "MOUNT" 

CASE 

Chaining 

Chr istmas Cards 
Christmas Text 
Circles 

Circles 

Circles 

Circuit Simulation 
Cleaning-Screen 
Cleaning-Tape Head 
Clipping 

Clipping 

Clipping 

CLOse 

CLOse 

Comparisons 
Concatenation 
Control Characters 
Conver sion 


Converting-Binary from ASCII 


Coordinates 
Coordinates 
Counters 

Counters 

Curves 

Curves-Gr aphics 
Data Acquisition 
Data Base 

Data Base-Gr aphics 
Data Base-Gr aphics 
Data Base-Numeric 
Data Communications 
Data Communications 
Data Communications 
Data kntry Simulation 
Data-Randomizing 
Data-Raridomizing 
Debugging 
Debugging 

DEF FN 

Deleting 

Deleting 
Delimiters 
Delimiters 
Delimiters 
Digitizing 
Digitizing 
Digitizing 
Digitizing 
Dimensioning 

Dir ector ies 
Directories 

Disk 

Disk 

Disk 

Disk 

Disk 

Disk 

Disk 

Disk 

Disk 

Disk 

Disk 

Disk 

Disk 

Disk 

Disk 

kditing 

Editing Code 
kditing Code 
Editing Code 


ASSOCIATED KEYWORDS 


REM Statements 

Memory Recovery ,Subroutines,Loops 
User-Definable Keys ,Program Flow, Subroutines 
Progr am , Debugging 

Circuit Simulation,Logical Oper ators 
Renumber ing ,Editing Code,GOTO 

4907 Disk,File Managemerit,Clean-Up CALL "DUP" 
4907 Disk,File Management,Clean-Up, v CALL "COMPRS" 
4907 Disk 

Comparisons, Relational Operators 

4907 Disk,File Management ,Directories 


Snowflakes 

Arcs ,Curves,Graphics,495z2 Joystick 
Graphics,kllipses 

Graphics, Curves,Ares,4952 Joystick 
CAI,Logical Operators 


Gr aphics ,MOVE/DRAW 

Three-Dimerisional Graphics 

Hidden Lines 

4907 Disk Files 

Tape Files,4924 Tape Drive 

CASE, Relational Operators 

Strings 

Formatting 

Base from Decimal 

4051R05 Binary Loader , Input „Output , Programs 
Mapping , Transformations, Option 1, RS-23¢,Summagr aphics Tablet 
4956 Tablet ,Mapping , Tr ansformations, Digitizing 
Cyclical 

Numeric Strings,Memory Saving 

Graphics, Ares,Circles,4952 Joystick 
Ares,Circles,4952 Joystick 

Errors, Recovery, Tape , Disk 

Packing Numeric „Arrays 

Segmented , 4907 Disk 

Segmented , 4907 Disk 

Arrays , Packing ‚Searching 

Option 1, RS-232 

4051C01 Interface,Option 1, RS-232 

Input ,Output ,Option 1, RS-232 

Input 

RND Function, Array ,Numeric 

Numeric Arrays, RND Function 
Renumber ing , Subroutines 

BREAK, Program 

Renumber ing ,Editing Code,ON-THEN 

Strings 

Variables ,Memory 

Output Status Bytes 

Input ,Output , Recover ing ASCII Programs 
4923 Tape Drive,Tape Format,Status Bytes 
4956 Tablet,Screen, Tracking, 

4956 Tablet ,Mapping , Coordinates, Transformations 
4956 Tablet,Screen, Tracking 

4956 Tablet ,Menus 

Input ,Output ,Arrays,Memory Management 
4907 Disk,File Management ,Chaining 

Tape ,Menus 

4907 , Sor ting 

4907 ,Graphics Data Base ,Segmented 

4907 , Over Laying ,Subroutines 

4907, Storing Overlays 

4907,Closing Files 

4907,Secret File Input 

4907,Alpha Access to Records ,Hashing 
4907 ,Binary,ASCII,Data,Space Required 
4907 ,File Management ,Clean-Up,CALL "DUP" v CALL "COMPRS" 
4907,CALL "MOUNT" 

4907 ,File Management , Directories, Chaining 
4907 ,Aborting SAVE 

4907, ROM Pack 

4907 ,Data Output, Arrays 

4907 ,Strings,Sorting 

Input , Parsing 

Renumber ing , CALL,GOTO 

Reriumber ing 

Listings ,User-Definable Keys 
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KEYWORD 


Ellipses 

knd of File 

Errors 

Error s 

Errors 

File Management 
File Management 
Formatting 
Formatting 
Formatting 
Formatting 

Forms 

FORTRAN Alternatives 
Functions 

Functions 

Functions 

Functions 

Functions 

Functions 

FUZZ 

FUZZ 

GOTO 

GPIB 

GPIB 

GPIB 
Graphics-Circles 

Gr aphics-Clipping 
Gr aphics-Clipping 
Gr aphics-Clipping 
Gr aphics-Curves 

Gr aphics-Cur ves 
Graphics-Data Base 
Graphics-Data Base 
Graphics-Forms 
Graphics-Gr id 

Gr aphics-Input 

Gr aphics-Input 
Graphics-Input 

Gr aphics-Input-4010 
Gr aphics-Lines 
Graphics-Lines 
Graphics-Lines 

Gr aphics-Output 
Graphics-Output 

Gr aphics-Output 
Graphics-Output-4010 
Gr aphics-Output-4010 
Graphics-Output-Stor ing 
Graphics-Polygons 
Gr aphics-Rotating 
Gr aphics-Shad ing 

Gr aphics-Shading 

Gr aphics-Snowf lakes 
Gr aphics-Snowf lakes 
Gr aphics-Text 

Grid 

Hashing 

Header 

Hidden Lines 
IF/THEN Alternative 
INP 

Input-Arrays 
Input-Binary Programs 
Input-Binary Strings 
Input-Data 
Input-Data Comm 
Input-Delimiters 
Input-Delimiters 
Input-Delimiters 
Input—-Editing 
Input-EOF 

Input-Gr aphic 
Input-Gr aphics 
Input-Gr aphics 
Input-Gr aphics-4010 
Input-Overlays 
Input-Prompting 
Input-Prompting 
Input-Prompting 


ASSOCIATED KEYWORDS PAGE 
Graphics,Circles 100 
ON EOF (0) ,Branching , TYP(0) 96 
Interrupts,4924 Tape Drive,Polling ,Status Bytes ,GPIB 5 
Tape ,4924 Tape Drive,Detection 84 
Data Acquisition, Recovery , Tape ,Disk 91 
4907 Disk,Clean-Up,CALL "DUP" v CALL "COMPRS" 17 
4907 Disk,Directories, Chaining 84 
Control Characters 3 
Text ,Centering Strings 20 
Memory Saving ,Loops ,Loop Alternatives 29 
Output , Screen ,Under Lining 78 
Tracking Variables 46 
Branching , FUZZ 14 
Truncation, Round-Off 17 
Trigonometr ic 25 
INT, FUZZ, Truncation , Round-Off 57 
RND,Numeric Arrays 60 
Mathematical , RND 62 
INT, Truncation 103 
Branching ,FORTRAN Alternatives 14 
INTeger Function, Truncation , Round-Off 57 
Renumber ing ,Editing Code,CALL 48 
Interrupts,4924 Tape Drive, Polling ,Error ,Status Bytes 5 
Animation ,Photography,Movie Camera,Screen 8 
Power 19 
Ellipses 100 
MOVE/DRAW 14 
Three-Dimensional 40 
Hidden Lines 53 
Ares,Circles,4952 Joystick 83 
Arcs,Circles,4952 Joystick 103 
Segmented ,4907 Disk 30 
Segmented ,4907 Disk 33 
Tracking Variables 46 
Oscilloscope ,Scr een 81 
Prompting ,POInter ,Screen,User-Definable Keys 10 
GIN v INP 5c 
Sereen,User-Definable Keys 64 
Output ,Offline,PLOT 10 TCS,Option 1, RS-23¢ 11 
Dashed 33 
Dashed 39 
Dashed 98 
Plotting ,Arrays,Loop Alternative 10 
Plotting ,Arrays,Secondary Addresses 36 
Plotting ,Offline,4924 Tape Drive,4662 Plotter 67 
Offline, {nput,PLOT 10 TCS,Option 1, RS-23¢ 11 
Option 1, RS-23¢,4660 Plotters 80 
Input 12 
Design, Placement 92 
Viewport, Axes 18 
Polygons 4662 Plotter ,495¢ Joystick 66 
Polygons 19 
Christmas Text 26 
Holiday Cards 26 
Christmas Cards 28 
Screen ,Oscilloscope 82 
Records, Alpha Access ,4907 Disk 68 
Tape , Extending 78 
Clipping 53 
Branching, Relational Operators 3 
Graphics ,GIN 52 
Output ,Memory Management , Dimensioning 719 
4057ROS Binary Loader ,OQutput ,Converting from ASCII 4 
Tape 19 
Data Entry Simulation 86 
Output ,Option 1, RS-232 T4 
Recovering ASCII Programs 56 
Recovering ASCII Programs 63 
4923 Tape Drive,Tape Format Status Bytes 73 
Parsing 63 
Branching ,TYP (0) 96 
GIN v INP 52 
Output , Stor ing 12 
Screen ,User—-Definable Keys 64 
Output ,Offline,PLOT 10 TCS,Option 1, RS-232 11 
Variables 38 
Graphics,POInter ,Screen ,User-Definable Keys 10 
POInter ,Screen,No Echo 16 
Branching , Relational Operators 24 
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KEYWORD 
Input-Prompting 
Input-Prompting/Editing 
Input-Prompting/Editing 
Input-Prompting/Editing 
Input-Records 
Input-Secret Files 
Input-Strings 
Input-Tablet 
Input-Tablet 
Input-Tablet 
Input-Tablet 
Input-Tablet 

INT Function 

INTeger Function 
Interrupts 

Interrupts 

Joystick 

Joystick 

Joystick 

Joystick 

Lines 

Lines 

Lines 

Listings 

Logical Operators 

Loop Alternative 

Loops 

Loops 

Loops 

Loops 

Loops 

Mapping 

Mapping 

MARKing 

MARKing 

MARKing 

MARKing 

Mathematical Functions 
Mathematical Functions 
Mathematical Functions 
Mathematical Functions 
Mathematical Functions 
Mathematical Functions 
Mathematics 

Memor y 

Memor y 


Memor y 

Memor y Loss 
Memory Management 
Memory Recover y 
Memory Saving 
Memory Saving 
Memory Saving 
Memory Saving 
Menus 

Menus 

Menus 

Menus 

Menus 

Mounting 
MOVE/DRAW 

Movie Camera 
Movie Camera 
Multiplication 
Numeric Data Base 
Numeric Strings 
Numeric Strings 
ON EOF (0) 
ON-THEN 
Option 
Option 
Option 
Option 
Option 
Option 1 

Oscilloscope 

Output-Ar rays 
Output-Binary Data 
Output-Binary Programs 
Output-Data 
Output-Data 


oe) ek et ok 


ASSOCIATED KEYWORDS 


Menu, Branching ,User-Definable Keys 

Br anching 

Fixed Length 

Br anching 

Hashing ,Alpha Access, Output ,4907 Disk 
4907 Disk 

Excess of 7z Cha 

4956 , Digitizing ,Screen, Tracking 


Mapping , Coordinates, Transformations, Option 1, RS-232, Summagraphics Tblt 
Mapping , Coordinates, Tr ansformations, Digitizing ,4956 Tablet 


4956 Tablet ,Digitizing ,Screen, Tracking 
4956 Tablet Digitizing ,Menus 
Truncation 

FUZZ, Truncation, Round-Off 


4924 Tape Drive, Polling ,krrors,Status Bytes ,GPIB 


Progr am , BREAK , Debugging 

4952, Input , Prompting ,Screen,POInter ,No Echo 
4952,Shading Polygons,4662 Plotter 

4952 ,Graphics,Arcs,Curves,Circles 
4952,Graphics,Curves,Arcs,Circles 

Dashed 

Dashed 

Dashed 

Editing Code,User-Definable Keys 
CAI,Circuit Simulation 

Arrays 

Branching ,Memory Loss 

Memory Saving ,Loop Alternatives, Formatting 
Branching 

Branching ,Subroutines ,Memory 

Memory Recovery, Branching ,Subroutines 


Coordinates , Transformations, Option 1, RS-23¢,Summagraphics Tablet 
4956 Tablet , Coordinates, Transformations, Digitizing 


Tape 

Tape 

Space 

Tape ,Storage,Space 
Truncation, Round-Off 

INT, FUZZ, Truncation, Round-Off 
RND,Numeric Arrays 

RND 


INT, Truncation 

Truncation, INT 

Base Conversion,from Decimal 
Subroutines, Branching ,Loops ,Memory 
Deleting , Variables 


Full 

Branching , Loops 

Input ,Output , Arrays , Dimensioning 
Branching , Subroutines, Loops 
Numeric Strings,Counters 
Variables 

Loops ,Loop Alternatives, Formatting 
Menu String 

Prompting , Branching ,User-Definable Keys 
Tape Directory 

String ,Memory Saving 

Tape ,Directories 

4956 Tablet ,Digitizing 

4907 Disk,CALL "MOUNT" 

Graphics Clipping 
Animation , Photography ,GPIB, Screen 
Animation , Photography ,Screen 
Arithmetic Operators 

Arrays , Packing , Searching 

Searching ,Loop Alternative , Packing , POS 
Memory Saving ,Counters 

Branching ,TYP (0) 

Renumbering ,Editing Code,DEF FN 
Data Communications, RS-232 


4010 Graphics, Input ‚Output ,PLOT 10 TCS, RS-232 


4051C01 Interface,Data Communications, RS-232 


Mapping , Coordinates, Transformations, RS-232, Summagraphics Tablet 


Input ,Output ,Data Communications, RS-232 


Graphics, Output ,4010 Terminals, RS-232,4660 Plotters 


Grid ,Screen 
Input ,Memory Management, Dimensioning 
Strings, Tape 


4051R05 Binary Loader, Input ,Converting from ASCII 


Binary ,4051RO5 Binary Loader 
4907 Disk,ASCII,Binary,Space Required 
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KE YWORD 

Output-Data 
Output-Data Comm 
Output-Delimiter 
Output—Delimiters 
Output-Delimiters 
Output-Formatting 
Output-Gr aphics 
Output-Gr aphics 
Output-Gr aphics 
Output-Gr aphics-4010 
Output-Gr aphics-4010 
Output-Gr aphics-Stor ing 
Output-Pr ogram 
Output-Records 
Output-Tabul ar 

Over laying 

Over laying 

Over laying 

Over lays 

Packing 

Packing 

Packing 

Par sing 

Pause 

Pause 

Photogr aphy 

Photogr aphy 

PLOT 10 TCS 

Plotter 

Plotter 

Plotter 

Plotter 

Plotter 

Plotter 

Plotters 

Plotting 

Plotting 

Plotting 

POInter 

POInter 

Polling 

Polygons 

Polygons 

Polygons 

POS 

Printer 

Printer 

Program Flow 

Random 

Re-MARKed Tape 
Re-MARKed Tape Files 
Re-MARKed Tape Files 
Records 

Relational Operators 
Relational Operators 
Relational Operators 
REM Statements 
Renumber ing 

Renunber ing 

Renumber ing 

Renumber ing 
Respooling Tape 

RND Function 

RND Function 

RND Function 

RND Function 

ROM Packs 

ROM Packs 

Rotating 

Round-Of f 

Round-Of f 

RS-232 

RS-232 

RS-232 

RS-232 

RS-232 

RS-232 

SAVE 
Screen-Cleaning 


ASSOCIATED KEYWORDS 

4907 Disk,Arrays 

Input ,Option 1, RS-23¢ 

Status Bytes 

Recovering ASCII Programs 

Recovering ASCII Programs 

Screen ,Underlining 

Plotting ,Arrays,Loop Alternative 

Plotting ,Arrays,Secondary Addresses 

Plotting ,Offline,4924 Tape Drive,4662 Plotter 
Offline, Input ,PLOT 10 TCS,Option 1, RS-232 
Option 1, RS-232,4660 Plotters 

Input 

4907 Disk,Aborting SAVE 

Hashing ,Alpha Access, Input ,4907 Disk 
Printer , Terminal 

Subroutines on tape, Using variables to call 
Input from Tape,Using variables to call 
Subroutines ,4907 Disk 

Storage ,4907 Disk 

Numeric Strings,Searching,Loop Alternative, POS 
Numeric Data Base, Arrays ,Searching 

Arrays ,Data Base ,Numeric 

Input , Editing 

Timed Delay 

User-Definable Keys 

Animation ,Movie Camera,GPIB,Screen 

Animation ,Movie Camera,Screen 

Input ,Output ,Offline,Option 1, RS-232 

4662 ,Window,Margins 

4662, Viewport, Sizing 

4662,Shading Polygons,4952 Joystick 

Plotting ,Offline,4924 Tape Drive 
4662,0ffline Plotting, 4924 Tape Drive 
4662,LOAD Button Test 

4660 Series,Graphics Output ,4010,Option 1, RS-232 
Graphics,Arrays,Loop Alternative 

Graphics, Arrays,Secondary Addresses 
Offline,4924 Tape Drive,4662 Plotter 
Graphics, Input , Prompting ,Screen,User-Definable Keys 
Input , Prompting ,Screen,No Echo 

Interrupts ,4924 Tape Drive,krrors,Status Bytes ,GPIB 
Shading ,4662 Plotter ,4952 Joystick 

Shading ,Graphics 

Design, Placement 

Searching ,Numeric Strings,Loop Alternative, Packing 
4642, TLIS 

Output-Tabular 

User-Definable Keys, Branching ,Subroutines 
Numeric Arrays, RND Function 
Salvaging , Damaged , 4052/4054 

Salvaging 

Salvaging.< 

4907 Disk,Hashing , Input ‚Output ,Alpha Access 
Branching , IF/THEN Alternative 
Input , Branching 

Comparisons, CASE 

Br anching 

Subroutines 

Subroutines 

CALL,GOTO,Editing Code 

Editing Code,DEF FN,ON-THEN 


Randomizing Data,Numeric,Arrays 
Mathematical Functions 

Random Numeric Arrays 

Data Randomizing ,Numeric Arrays 


4907 Disk 

Viewport, Axes 

Mathematical Functions, Truncation 

INTeger Function,FUZZ, Truncation 

Data Communications,Option 1 

4010 Graphics, Input ,OQutput,PLOT 10 TCS,Option 1 
4051C01 Interface,Data Communications, RS-232 


Mapping , Coordinates, Transformations,Option 1,Summagraphics Tablet 


Input ‚Output ,Data Communications,Option 1 


Graphics ,Output ,4010 Terminals,Option 1,4660 Plotters 


4907 Disk, Aborting 
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KE YWORD 
Screen-Formatting 
Screen-Gr id 
Screen-Input 
Screen-Input 
Screen-Input 
Screen-Photogr aphy 
Screen-Photogr aphy 
Ser een-Tracking 
Screen-Tracking 
Searching 
Searching 
Searching 
Searching 

Secret Files 
Shading 

Shading 
Snowflakes 
Snowflakes 
Sorting 

Sorting 

Sor ting 

Sorting 

Status Bytes 
Status Bytes 
Status Bytes 
Storing 

Storing 

Storing Graphics 
Str ing-Menu 
Strings 

Strings 
Strings-Binary 
Strings-Binary 
Strings-Dimensioning 
Strings-Formatting 
Strings-Input 
Strings-Numeric 
Strings-Numeric 
Strings-Sorting 
Strings-Sorting 
Strings-Sorting 
Subroutines 
Subroutines 
Subroutines 
Subroutines 
Subroutines 
Subroutines 
Subroutines 
Subroutines 
Subroutines 


Subroutines-Branching to 


Summagraphics Tablet 
Tablet 
Tablet 


Tablet 

Tablet 

Tablet 
Tape-Binary Input 
Tape-Care 
Tape-Directories 
Tape-Directory 
Tape-Errors 
Tape-Errors 
Tape-Files 
Tape-Format 
Tape-Head Cleaning 
Tape-Header 
Tape-MARKing 
Tape-MARKing 
Tape-MARKing 
Tape-Respooling 
Tape-Salvag ing 
Tape-Salvaging 
Tape-Salvaging 
Tape-Stacking 
Tape-Ver ification 
Terminals 
Terminals 
Terminals 

Text Formatting 
Three-Dimensional 


ASSOCIATED KEYWORDS 
Output , Uiderlining 

Oscilloscope 

Graphics , Prompting ,User-Definable Keys 
POInter , Prompting ,No Echo 
Graphics,User-Definable Keys 

Animation ,Movie Camera,GPIB 
Animation,Movie Camera 

4956 Tablet ,Digitizing 

4956 Tablet , Digitizing 

Loop Alternative,Numeric Strings, Packing ,POS 
Numeric Data Base, Arrays, Packing 
Variables, Two-Char acter 

Strings 

Input ,4907 Disk 

Polygons ,4662 Plotter ,4952 Joystick 
Graphics , Polygons 

Christmas Text 

Holiday Cards 

4907 Disk 

Strings 

Strings 

Strings,4907 Disk 

Interrupts ,4924 Tape Drive,Polling,Errors,GPIB 
Output , Delimiter 

Input ,Delimiters,4924 Tape Drive,Tape Format 
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